--- a/Metaclass.st	Wed Feb 05 18:17:34 2014 +0100
+++ b/Metaclass.st	Wed Feb 05 18:17:36 2014 +0100
@@ -127,6 +127,7 @@
     "Created: / 1.11.1997 / 13:16:45 / cg"
 ! !
 
+
 !Metaclass methodsFor:'autoload check'!
 
 isLoaded
@@ -876,6 +877,14 @@
     "Created: / 01-07-2011 / 10:55:39 / cg"
 !
 
+sourceCodeManagerFromBinaryRevision
+
+    ^ myClass sourceCodeManagerFromBinaryRevision
+
+    "Modified: / 01-04-1997 / 14:36:31 / stefan"
+    "Created: / 06-10-2011 / 09:34:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
 sourceFileSuffix
     ^ self programmingLanguage sourceFileSuffix
 
@@ -902,7 +911,8 @@
 !Metaclass class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Metaclass.st,v 1.211 2013-01-11 11:45:37 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Metaclass.st,v 1.212 2014-02-05 17:17:36 cg Exp $'
 ! !
 
+
 Metaclass initialize!