Index: /applications/editors/josm/i18n/i18n.pl
===================================================================
--- /applications/editors/josm/i18n/i18n.pl	(revision 31087)
+++ /applications/editors/josm/i18n/i18n.pl	(revision 31088)
@@ -9,4 +9,5 @@
 my $maxcount = 0;
 my $lang_pattern = '([a-z]{2}_[A-Z]{2}|[a-z]{2,3}|[a-z]{2}\@[a-z]+)';
+my $lang_pattern_file = '([a-z]{2}_[A-Z]{2}|[a-z]{2,3}|[a-z]{2}-[a-z]+)';
 
 main();
@@ -262,7 +263,8 @@
     my $la;
     my $cnt = 0;
-    if($file =~ /^(?:.*\/)?$lang_pattern\.lang$/)
+    if($file =~ /^(?:.*\/)?$lang_pattern_file\.lang$/)
     {
       $la = $1;
+      $la =~ s/-/\@/;
     }
     else
@@ -370,4 +372,5 @@
   foreach my $la (sort keys %lang)
   {
+    $la =~ s/\@/-/;
     push(@clang, "${basename}$la.lang");
   }