Index: /applications/editors/josm/i18n/i18n.pl
===================================================================
--- /applications/editors/josm/i18n/i18n.pl	(revision 19355)
+++ /applications/editors/josm/i18n/i18n.pl	(revision 19356)
@@ -187,4 +187,13 @@
 }
 
+sub makestring($)
+{
+  my ($str) = @_;
+  $str =~ s/\\"/"/g;
+  $str =~ s/\\n/\n/g;
+  $str = encode("utf8", $str);
+  return pack("n",length($str)).$str;
+}
+
 sub createlang($@)
 {
@@ -221,6 +230,5 @@
         $val = "" if($ennoctx eq $val);
       }
-      $val = encode("utf8", $val);
-      print FILE pack("n",length($val)).$val;
+      print FILE makestring($val);
     }
     print FILE pack "n",0xFFFF;
@@ -252,10 +260,8 @@
       if($num)
       {
-        $val = encode("utf8", $val);
-        print FILE pack("n",length($val)).$val;
+        print FILE makestring($val);
         for($num = 1; exists($data->{$en}{"$la.$num"}); ++$num)
         {
-          $val = encode("utf8", $data->{$en}{"$la.$num"});
-          print FILE pack("n",length($val)).$val;
+          print FILE makestring($data->{$en}{"$la.$num"});
         }
       }