--- a/CharacterArray.st	Tue Oct 23 18:50:07 2018 +0200
+++ b/CharacterArray.st	Wed Oct 24 09:01:44 2018 +0200
@@ -5629,9 +5629,9 @@
     or:[(matchScanArray := PreviousMatches at: self ifAbsent:[nil]) isNil]) ifTrue:[
         matchScanArray := self class matchScanArrayFrom:self escapeCharacter:escape.
         matchScanArray isNil ifTrue:[
-            'CharacterArray [info]: invalid matchpattern:''' infoPrint. self infoPrint. ''' comparing for equality.' infoPrintCR.
+            ParseWarning raiseRequestErrorString:('CharacterArray [info]: invalid matchpattern: ''%1'' comparing for equality' bindWith:self).
             ^ self = aString
-"/            ^ false
+            "/ ^ false
         ].
         PreviousMatches isNil ifTrue:[
             PreviousMatches := CacheDictionary new:15
@@ -5649,9 +5649,12 @@
     "
      '*ute*' match:'12345COMPUTER' from:1 to:5 caseSensitive:false
      '*ute*' match:'12345COMPUTER' from:6 to:13 caseSensitive:false
+     
+     '*[12' match:'12345COMPUTER' from:6 to:13 caseSensitive:false -- gives a warning
     "
 
     "Modified: / 29-07-2017 / 14:01:42 / cg"
+    "Modified (comment): / 24-10-2018 / 09:01:31 / Claus Gittinger"
 !
 
 match:aString from:start to:stop ignoreCase:ignoreCase