--- a/StringPattern.st	Mon Apr 21 13:39:39 2014 +0200
+++ b/StringPattern.st	Tue Apr 22 11:29:04 2014 +0200
@@ -99,6 +99,12 @@
     "Created: / 09-08-2011 / 13:42:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
+!StringPattern methodsFor:'accessing'!
+
+data
+    ^ data
+! !
+
 !StringPattern methodsFor:'initialization'!
 
 on: anObject
@@ -303,10 +309,10 @@
 !StringPattern class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/StringPattern.st,v 1.7 2014-03-05 15:13:46 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/StringPattern.st,v 1.8 2014-04-22 09:29:04 vrany Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic2/StringPattern.st,v 1.7 2014-03-05 15:13:46 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/StringPattern.st,v 1.8 2014-04-22 09:29:04 vrany Exp $'
 ! !