diff --git a/scripts/cvs-admin.sh b/scripts/cvs-admin.sh
index 3e04e432..a5a26c1f 100644
--- a/scripts/cvs-admin.sh
+++ b/scripts/cvs-admin.sh
@@ -26,6 +26,7 @@ cmd_list_projects()
 			test -x $p || continue
 			test -r $p || continue
 			p=${p##./}
+			test -f $HOME/cvs-list.txt && grep -q "^$p$" $HOME/cvs-list.txt || continue
 			proj="$proj $p"
 		done
 		[ "$proj" ] && echo $proj