--- a/AbstractSourceCodeManager.st	Fri Nov 25 17:45:29 2011 +0100
+++ b/AbstractSourceCodeManager.st	Fri Nov 25 22:47:12 2011 +0100
@@ -2096,7 +2096,7 @@
 
     doubleColon := source indexOf: $: startingAt: startQuote + 2.
     "/There may be no double colon at all, if the version method
-    "/is fresh, like '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.270 2011-11-18 13:08:02 cg Exp $'
+    "/is fresh, like '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.271 2011-11-25 21:47:12 vrany Exp $'
     (doubleColon == 0 or:[doubleColon > endQuote]) ifTrue:[
         doubleColon := endQuote - 1.
     ].
@@ -3280,6 +3280,21 @@
     "Created: / 09-07-2011 / 14:05:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
+!AbstractSourceCodeManager::PackageAndManager methodsFor:'printing & storing'!
+
+printOn:aStream
+    "append a printed representation if the receiver to the argument, aStream"
+
+    super printOn:aStream.
+    aStream nextPut: $(.
+    package printOn:aStream.
+    aStream nextPutAll:' -> '.
+    managerTypeName printOn:aStream.
+    aStream nextPut: $).
+
+    "Modified: / 25-11-2011 / 18:35:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
 !AbstractSourceCodeManager::PackageAndManager methodsFor:'queries'!
 
 match: packageId
@@ -3304,11 +3319,11 @@
 !AbstractSourceCodeManager class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.270 2011-11-18 13:08:02 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.271 2011-11-25 21:47:12 vrany Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.270 2011-11-18 13:08:02 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.271 2011-11-25 21:47:12 vrany Exp $'
 ! !
 
 AbstractSourceCodeManager initialize!