--- a/CharacterArray.st	Fri Aug 13 17:09:29 2010 +0200
+++ b/CharacterArray.st	Fri Aug 13 17:11:58 2010 +0200
@@ -4090,6 +4090,23 @@
     "
 
     "Created: / 13-08-2010 / 17:09:05 / sr"
+!
+
+hasAnyRegexMatchesIgnoringCase: rxString
+    "return true, if any substrings in the receiver, matches the regular expression in rxString"
+
+    rxString asRegexIgnoringCase matchesIn:self do:[:m | ^ true].
+    ^ false
+
+    "
+     'ABCD XYZ DEFG' hasAnyRegexMatchesIgnoringCase:'[a-z]+'        
+     'ABCD XYZ DEFG' hasAnyRegexMatches:'[a-z]+'        
+
+     '1234 abcd 3456 defg' hasAnyRegexMatchesIgnoringCase:'[a-z]+'   
+     'abcd 3456 defg' hasAnyRegexMatchesIgnoringCase:'[a-z]+'        
+    "
+
+    "Created: / 13-08-2010 / 17:11:11 / sr"
 ! !
 
 !CharacterArray methodsFor:'padded copying'!
@@ -5800,11 +5817,11 @@
 !CharacterArray class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.436 2010-08-13 15:09:29 sr Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.437 2010-08-13 15:11:58 sr Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.436 2010-08-13 15:09:29 sr Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.437 2010-08-13 15:11:58 sr Exp $'
 ! !
 
 CharacterArray initialize!