diff --git a/po/ChangeLog b/po/ChangeLog
index 81a5f4005..b3a0f579a 100644
--- a/po/ChangeLog
+++ b/po/ChangeLog
@@ -1,5 +1,7 @@
 2001-06-07  Pavel Roskin  <proski@gnu.org>
 
+	* update.pl: When using `--maintain' only scan ordinary	files.
+
 	* ru.po: Update.
 	* POTFILES.in: Add src/charsets.c, src/selcodepage.c and
 	src/setup.c.
diff --git a/po/update.pl b/po/update.pl
index 60fc4cb34..48c6ce5f7 100755
--- a/po/update.pl
+++ b/po/update.pl
@@ -62,7 +62,7 @@ if ($LANG=~/^-(.)*/){
         
     elsif ($LANG eq "--maintain" || "$LANG" eq "-M"){
 
-        $a="find ../ -print | egrep '.*\\.(c|y|cc|c++|h|gob)' ";
+        $a="find ../ -type f -print | egrep '.*\\.(c|y|cc|c++|h|gob)' ";
 
         open(BUF2, "POTFILES.in") || die "update.pl:  there's not POTFILES.in!!!\n";
         print "Searching for missing _(\" \") entries...\n";