--- a/StringPattern.st	Wed Jan 07 10:20:44 2015 +0100
+++ b/StringPattern.st	Fri Jan 09 14:09:20 2015 +0100
@@ -1,5 +1,7 @@
 "{ Package: 'stx:libbasic2' }"
 
+"{ NameSpace: Smalltalk }"
+
 Object subclass:#StringPattern
 	instanceVariableNames:'data'
 	classVariableNames:''
@@ -288,7 +290,7 @@
 
     stream position == 0 ifTrue:[
         (stream peek notNil and:[stream peek isSeparator]) ifFalse:[
-            data := stream upToSeparator.
+            data := stream upToEnd."/upToSeparator.
             (data includes: $*) ifTrue:[
                 ^StringPattern matches: data
             ].
@@ -311,6 +313,7 @@
 
     "Created: / 18-10-2011 / 21:26:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified: / 21-12-2011 / 23:19:06 / jv"
+    "Modified (format): / 09-01-2015 / 13:09:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !StringPattern::StartsWith methodsFor:'matching'!
@@ -371,10 +374,10 @@
 !StringPattern class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/StringPattern.st,v 1.9 2014-11-26 10:45:23 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/StringPattern.st,v 1.10 2015-01-09 13:09:20 vrany Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic2/StringPattern.st,v 1.9 2014-11-26 10:45:23 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/StringPattern.st,v 1.10 2015-01-09 13:09:20 vrany Exp $'
 ! !