diff --git a/ChangeLog b/ChangeLog
index 077431d4e..8da4b0721 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,8 @@
 2001-03-13  Bart Schaefer  <schaefer@zsh.org>
 
+	* Zvi Har'El: 13619: Completion/User/_rcs: Add the D qualifier
+	when matching file names in the RCS subdirectory.
+
 	* 13613, 13620: Completion/User/_ncftp, Completion/User/_lftp:
 	Unify completion for ncftp and lftp in _ncftp (removed _lftp).
 
diff --git a/Completion/User/_rcs b/Completion/User/_rcs
index 11cb7a59f..7ff3b8326 100644
--- a/Completion/User/_rcs
+++ b/Completion/User/_rcs
@@ -5,7 +5,7 @@ local ret=1
 if [[ -d RCS && $service != ci ]]; then
   local rep expl
 
-  rep=(RCS/*,v(:t:s/\,v//))
+  rep=(RCS/*,v(D:t:s/\,v//))
   (( $#rep )) && _wanted files expl 'RCS file' compadd -a rep && ret=0
 fi