--- a/CharacterArray.st	Mon May 20 10:44:16 1996 +0200
+++ b/CharacterArray.st	Mon May 20 10:45:52 1996 +0200
@@ -2713,7 +2713,7 @@
      or [...] to match a set of characters.
      If ignoreCase is true, lower/uppercase are considered the same.
      NOTICE: match-meta character interpretation is like in unix-matching, 
-	     NOT the ST-80 meaning."
+             NOT the ST-80 meaning."
 
     |matchScanArray|
 
@@ -2724,27 +2724,29 @@
     "
     (PreviousMatch notNil
     and:[PreviousMatch key = self]) ifTrue:[
-	matchScanArray := PreviousMatch value
+        matchScanArray := PreviousMatch value
     ] ifFalse:[
-	matchScanArray := self class matchScanArrayFrom:self.
-	matchScanArray isNil ifTrue:[
-	    'CHARARRAY: invalid matchpattern:' infoPrint. self infoPrintNL.
-	    ^ false
-	].
-	PreviousMatch := self -> matchScanArray.
+        matchScanArray := self class matchScanArrayFrom:self.
+        matchScanArray isNil ifTrue:[
+            'CHARARRAY: invalid matchpattern:' infoPrint. self infoPrintCR.
+            ^ false
+        ].
+        PreviousMatch := self -> matchScanArray.
     ].
 
     ^ self class
-	matchScan:matchScanArray 
-	from:1 to:matchScanArray size
-	with:aString 
-	from:start to:stop 
-	ignoreCase:ignoreCase
+        matchScan:matchScanArray 
+        from:1 to:matchScanArray size
+        with:aString 
+        from:start to:stop 
+        ignoreCase:ignoreCase
 
     "
      '*ute*' match:'12345COMPUTER' from:1 to:5 ignoreCase:true 
      '*ute*' match:'12345COMPUTER' from:6 to:13 ignoreCase:true  
     "
+
+    "Modified: 20.5.1996 / 10:31:46 / cg"
 !
 
 match:aString ignoreCase:ignoreCase
@@ -3870,5 +3872,5 @@
 !CharacterArray class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.90 1996-05-20 07:38:39 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.91 1996-05-20 08:45:52 cg Exp $'
 ! !