--- a/CharacterArray.st	Thu Dec 09 12:36:24 2010 +0100
+++ b/CharacterArray.st	Mon Dec 13 11:01:54 2010 +0100
@@ -4115,6 +4115,26 @@
     "
 
     "Created: / 13-08-2010 / 17:11:11 / sr"
+!
+
+matchesRegex:regexString ignoringCase:aBoolean
+    "Test if the receiver matches a regex.
+     May raise RxParser>>regexErrorSignal or child signals.
+     This is a part of the Regular Expression Matcher package,
+        (c) 1996, 1999 Vassili Bykov.
+     Refer to `documentation' protocol of RxParser class for details."
+
+    aBoolean ifTrue:[
+        ^ self matchesRegexIgnoringCase:regexString
+    ] ifFalse:[
+        ^ self matchesRegex:regexString
+    ].
+
+    "
+     'hello world' matchesRegex:'h.*d'.
+    "
+
+    "Created: / 13-12-2010 / 11:01:49 / cg"
 ! !
 
 !CharacterArray methodsFor:'padded copying'!
@@ -5814,11 +5834,11 @@
 !CharacterArray class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.442 2010-11-18 14:44:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.443 2010-12-13 10:01:54 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.442 2010-11-18 14:44:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.443 2010-12-13 10:01:54 cg Exp $'
 ! !
 
 CharacterArray initialize!