--- a/CharacterArray.st	Wed Nov 11 16:01:21 1998 +0100
+++ b/CharacterArray.st	Wed Nov 11 16:02:35 1998 +0100
@@ -10,7 +10,7 @@
  hereby transferred.
 "
 
-ByteArray subclass:#CharacterArray
+ByteArray variableByteSubclass:#CharacterArray
 	instanceVariableNames:''
 	classVariableNames:'PreviousMatch DecoderTables EncoderTables DecodingFailedSignal
 		EncodingFailedSignal'
@@ -4005,8 +4005,9 @@
     ] ifFalse:[
         matchScanArray := self class matchScanArrayFrom:self.
         matchScanArray isNil ifTrue:[
-            'CharacterArray [info]: invalid matchpattern:' infoPrint. self infoPrintCR.
-            ^ false
+            'CharacterArray [info]: invalid matchpattern:''' infoPrint. self infoPrint. ''' comparing for equality.' infoPrintCR.
+            ^ self = aString    
+"/            ^ false
         ].
         PreviousMatch := self -> matchScanArray.
     ].
@@ -4023,7 +4024,7 @@
      '*ute*' match:'12345COMPUTER' from:6 to:13 ignoreCase:true  
     "
 
-    "Modified: / 9.6.1998 / 18:49:57 / cg"
+    "Modified: / 10.11.1998 / 21:43:46 / cg"
 !
 
 match:aString ignoreCase:ignoreCase
@@ -5207,6 +5208,6 @@
 !CharacterArray class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.154 1998-10-15 12:55:15 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.155 1998-11-11 15:02:35 cg Exp $'
 ! !
 CharacterArray initialize!