Index: /applications/editors/josm/i18n/i18n.pl
===================================================================
--- /applications/editors/josm/i18n/i18n.pl	(revision 36389)
+++ /applications/editors/josm/i18n/i18n.pl	(revision 36390)
@@ -456,11 +456,19 @@
 
   my @clang;
+  my %oldlang = map {$_ => 1} glob("${basename}*.lang");
   foreach my $la (sort keys %lang)
   {
     $la =~ s/\@/-/;
     push(@clang, "${basename}$la.lang");
+    delete $oldlang{"${basename}$la.lang"};
   }
   push(@clang, "${basename}en.lang");
+  delete $oldlang{"${basename}en.lang"};
   die "There have been warning. No output.\n" if $waswarn;
+  for my $old (sort keys %oldlang)
+  {
+    print("Remove old file $old.\n");
+    unlink($old);
+  }
 
   createlang(\%data, ($use ? keys %{$use} : keys %data), @clang);