Index: /applications/editors/josm/i18n/i18n.pl
===================================================================
--- /applications/editors/josm/i18n/i18n.pl	(revision 35179)
+++ /applications/editors/josm/i18n/i18n.pl	(revision 35180)
@@ -310,7 +310,7 @@
 }
 
-sub createlang($@)
-{
-  my ($data, @files) = @_;
+sub createlang($$@)
+{
+  my ($data, $maxcount, @files) = @_;
   my $maxlen = 0;
   foreach my $file (@files)
@@ -319,5 +319,4 @@
     $maxlen = $len if $len > $maxlen;
   }
-  my $maxcount = keys(%{$data});
   foreach my $file (@files)
   {
@@ -447,5 +446,6 @@
     }
   }
-  my %data = loadfiles(\%lang,$potfile ? loadpot($potfile) : undef, @po);
+  my $use = $potfile ? loadpot($potfile) : undef;
+  my %data = loadfiles(\%lang, $use, @po);
 
   my @clang;
@@ -458,4 +458,4 @@
   die "There have been warning. No output.\n" if $waswarn;
 
-  createlang(\%data, @clang);
-}
+  createlang(\%data, ($use ? keys %{$use} : keys %data), @clang);
+}