CharacterArray.st
changeset 1124 53f6970d9d7d
parent 1059 8c42c5ed48f2
child 1133 961f2b095c22
--- a/CharacterArray.st	Tue Mar 26 17:08:34 1996 +0100
+++ b/CharacterArray.st	Tue Mar 26 17:52:53 1996 +0100
@@ -3184,7 +3184,7 @@
 	] 
     ].
 
-    score = maxLen ifTrue: [^ 100].
+    score == maxLen ifTrue: [^ 100].
     ^ 100 * score // maxLen
 
     " 
@@ -3199,5 +3199,5 @@
 !CharacterArray class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.65 1996-03-02 12:41:34 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.66 1996-03-26 16:52:36 cg Exp $'
 ! !