--- a/CharacterArray.st	Thu Oct 15 13:17:52 1998 +0200
+++ b/CharacterArray.st	Thu Oct 15 14:55:15 1998 +0200
@@ -1819,7 +1819,7 @@
                                             index := aString findFirst:[:c | c asLowercase == nextMatchEntry asLowercase]
                                                            startingAt:sStart.
                                         ].
-                                        index == 0 ifTrue:[
+                                        (index == 0 or:[index > sStop]) ifTrue:[
                                             ^ false
                                         ].
                                         (self matchScan:matchScanArray 
@@ -1931,7 +1931,7 @@
          ignoreCase:false
     "
 
-    "Modified: / 9.6.1998 / 19:02:42 / cg"
+    "Modified: / 15.10.1998 / 13:39:25 / cg"
 !
 
 matchScanArrayFrom:aString
@@ -5207,6 +5207,6 @@
 !CharacterArray class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.153 1998-07-21 15:28:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.154 1998-10-15 12:55:15 cg Exp $'
 ! !
 CharacterArray initialize!