--- a/StringPattern.st	Sun Mar 10 22:32:42 2013 +0100
+++ b/StringPattern.st	Mon Mar 11 15:12:02 2013 +0100
@@ -99,6 +99,7 @@
     "Created: / 09-08-2011 / 13:42:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
+
 !StringPattern methodsFor:'initialization'!
 
 on: anObject
@@ -184,14 +185,14 @@
 match:string relax:relax
 
     relax == 1 ifTrue:[
-        ^string includes: data
+        ^string includesString: data
     ].
     relax == 2 ifTrue:[
         ^string matches: ('*', data, '*')
     ].
     ^false.
 
-    "Modified: / 18-10-2011 / 21:33:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 11-03-2013 / 14:11:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !StringPattern::Matches methodsFor:'matching'!
@@ -303,9 +304,10 @@
 !StringPattern class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/StringPattern.st,v 1.4 2011-12-21 23:20:13 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/StringPattern.st,v 1.5 2013-03-11 14:12:02 vrany Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic2/StringPattern.st,v 1.4 2011-12-21 23:20:13 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/StringPattern.st,v 1.5 2013-03-11 14:12:02 vrany Exp $'
 ! !
+