--- a/StringPattern.st	Tue Dec 13 15:16:02 2011 +0100
+++ b/StringPattern.st	Thu Dec 22 00:20:13 2011 +0100
@@ -251,7 +251,7 @@
     | data |
 
     stream position1Based == 1 ifTrue:[
-        (stream peek notNil and:[stream peek isWhiteSpace]) ifFalse:[
+        (stream peek notNil and:[stream peek isSeparator]) ifFalse:[
             data := stream upToSeparator.
             (data includes: $*) ifTrue:[
                 ^StringPattern matches: data
@@ -274,6 +274,7 @@
     ^StringPattern includes: data
 
     "Created: / 18-10-2011 / 21:26:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 21-12-2011 / 23:19:06 / jv"
 ! !
 
 !StringPattern::StartsWith methodsFor:'matching'!
@@ -302,9 +303,9 @@
 !StringPattern class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/StringPattern.st,v 1.3 2011-11-29 15:04:19 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/StringPattern.st,v 1.4 2011-12-21 23:20:13 vrany Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic2/StringPattern.st,v 1.3 2011-11-29 15:04:19 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/StringPattern.st,v 1.4 2011-12-21 23:20:13 vrany Exp $'
 ! !