--- a/CharacterArray.st	Fri Jan 10 15:52:03 1997 +0100
+++ b/CharacterArray.st	Fri Jan 10 16:04:23 1997 +0100
@@ -2821,7 +2821,7 @@
     ] ifFalse:[
         matchScanArray := self class matchScanArrayFrom:self.
         matchScanArray isNil ifTrue:[
-            'CHARARRAY: invalid matchpattern:' infoPrint. self infoPrintCR.
+            'CharacterArray [info]: invalid matchpattern:' infoPrint. self infoPrintCR.
             ^ false
         ].
         PreviousMatch := self -> matchScanArray.
@@ -2839,7 +2839,7 @@
      '*ute*' match:'12345COMPUTER' from:6 to:13 ignoreCase:true  
     "
 
-    "Modified: 20.5.1996 / 10:31:46 / cg"
+    "Modified: 10.1.1997 / 15:36:02 / cg"
 !
 
 match:aString ignoreCase:ignoreCase
@@ -3996,5 +3996,5 @@
 !CharacterArray class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.99 1997-01-04 13:17:34 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.100 1997-01-10 15:03:03 cg Exp $'
 ! !