String.st
changeset 8916 a75290b18fa6
parent 8915 eb2652ce257d
child 8917 05ac69ca4e94
--- a/String.st	Fri Jul 08 22:30:32 2005 +0200
+++ b/String.st	Fri Jul 08 22:42:36 2005 +0200
@@ -2989,7 +2989,7 @@
     if ((cls = __qClass(self)) != String) {
 	cp += __OBJS2BYTES__(__intVal(__ClassInstPtr(cls)->c_ninstvars));
     }
-    while ((cp+4) < last) {
+    while ((cp+4) <= last) {
 	if (*(int *)cp & 0x80808080) {
 	    RETURN ( true );
 	}
@@ -3412,5 +3412,5 @@
 !String class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/String.st,v 1.216 2005-07-08 20:30:32 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/String.st,v 1.217 2005-07-08 20:42:36 cg Exp $'
 ! !