Index: abi/dumpstrings.pl
===================================================================
RCS file: /cvsroot/abi/dumpstrings.pl,v
retrieving revision 1.7
diff -u -r1.7 dumpstrings.pl
--- abi/dumpstrings.pl	25 Oct 2001 17:08:03 -0000	1.7
+++ abi/dumpstrings.pl	19 Apr 2003 08:19:10 -0000
@@ -21,7 +21,7 @@
     or die "Cannot open $file";
   
   while (<STRINGS>) {
-    next unless /dcl\((.*)\s*,\s*\"(.*)\"/;
+    next unless /^\s*dcl\((.*)\s*,\s*\"(.*)\"/;
     my ($dlg,$string) = ($1,$2);
     $string =~ s/&amp/&/;
     $dlgs{$dlg}{$lang} = $string;