*** empty log message *** rel4_1_7 release
authorClaus Gittinger <cg@exept.de>
Mon, 18 Dec 2000 23:12:09 +0100
changeset 2099 96d3eba3d406
parent 2098 7b97c7182e70
child 2100 4989419ae5c6
*** empty log message ***
Java.st
--- a/Java.st	Mon Dec 18 23:11:53 2000 +0100
+++ b/Java.st	Mon Dec 18 23:12:09 2000 +0100
@@ -964,7 +964,7 @@
     str := aJavaString instVarAt:1. "/ (JavaSlotIndexCache string_slot_value).
 
     str size == count ifTrue:[
-        ^ str
+        ^ str asOneByteString
     ].
 
     "/ offs := (aJavaString instVarNamed:'offset').
@@ -977,7 +977,7 @@
     stop := start + count - 1.
 
     "/ ^ ((aJavaString instVarNamed:'value') copyFrom:start to:stop) asString
-    ^ (str copyFrom:start to:stop) asString
+    ^ (str copyFrom:start to:stop) asOneByteString
 
     "Created: / 8.8.1997 / 12:02:55 / cg"
     "Modified: / 4.1.1999 / 23:55:08 / cg"
@@ -1541,6 +1541,6 @@
 !Java class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libjava/Java.st,v 1.127 2000-12-18 15:43:46 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libjava/Java.st,v 1.128 2000-12-18 22:12:09 cg Exp $'
 ! !
 Java initialize!