--- a/SnapShotImageMemory.st	Tue Mar 04 16:00:23 2014 +0100
+++ b/SnapShotImageMemory.st	Tue Mar 04 17:07:56 2014 +0100
@@ -3667,6 +3667,11 @@
     ^ info
 !
 
+revisionInfoOfManager: mgr
+    ^ (Smalltalk classNamed:self name)
+            revisionInfoOfManager: mgr
+!
+
 revisionString
     "{ Pragma: +optSpace }"