* make ansistring unique when changing the code page without conversion

    (like on other platforms)

git-svn-id: trunk@22463 -

rtl/java/jastrings.inc

@@ -840,6 +840,7 @@ procedure SetCodePage(var s : RawByteString; CodePage : TSystemCodePage; Convert
       end
     else
       begin
+        UniqueString(s);
         AnsistringClass(S).fCodePage:=CodePage;
       end;
   end;