--- a/SVN__PackagePattern.st	Thu Sep 27 22:49:56 2012 +0200
+++ b/SVN__PackagePattern.st	Thu Oct 18 16:26:51 2012 +0200
@@ -120,6 +120,16 @@
     "Created: / 12-03-2011 / 21:20:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
+!PackagePattern methodsFor:'printing & storing'!
+
+printOn:aStream
+    "append a printed representation if the receiver to the argument, aStream"
+
+    pattern printOn:aStream.
+
+    "Modified: / 18-10-2012 / 16:02:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
 !PackagePattern methodsFor:'private'!
 
 matchAt: componentIdx into: replacements index: replacementIndex in: packageComponents from: start