diff --git a/po/ChangeLog b/po/ChangeLog
index a06da88a78..d5c45dc136 100644
--- a/po/ChangeLog
+++ b/po/ChangeLog
@@ -1,3 +1,8 @@
+2000-11-21  Robert Brady  <robert@suse.co.uk>
+
+	* update.pl: Allow a parameter to specify the name of the .pot
+	file to generate. (for stats).
+
 2000-11-12  Robert Brady  <robert@suse.co.uk>
 
 	* *.po: Convert them all to UTF-8. Rename Chinese .po's so
diff --git a/po/update.pl b/po/update.pl
index d6b2fc89f9..e044a3012d 100755
--- a/po/update.pl
+++ b/po/update.pl
@@ -44,13 +44,19 @@ if ($LANG=~/^-(.)*/){
 
     elsif($LANG eq "--pot" || "$LANG" eq "-P"){
                 
-        print "Building the $PACKAGE.pot ...";
+	shift;
+	$REALPACKAGE = shift;
+	if (!$REALPACKAGE) {
+	    $REALPACKAGE = $PACKAGE;
+	}
+
+        print "Building the $REALPACKAGE.pot ...";
 
         $b="xgettext --default-domain\=$PACKAGE --directory\=\.\."
           ." --add-comments --keyword\=\_ --keyword\=N\_"
           ." --files-from\=\.\/POTFILES\.in ";
         $b1="test \! -f $PACKAGE\.po \|\| \( rm -f \.\/$PACKAGE\.pot "
-           ."&& mv $PACKAGE\.po \.\/$PACKAGE\.pot \)";
+           ."&& mv $PACKAGE\.po \.\/$REALPACKAGE\.pot \)";
          
         `$b`;
         `$b1`;