--- a/Class.st	Fri Jul 01 13:44:26 2011 +0200
+++ b/Class.st	Fri Jul 01 15:04:14 2011 +0200
@@ -4694,7 +4694,7 @@
     vsnString isNil ifTrue:[^ nil].
 
     aSourceCodemanagerOrNil notNil ifTrue:[
-        info := aSourceCodemanagerOrNil revisionInfoFromString:vsnString
+        info := aSourceCodemanagerOrNil revisionInfoFromString:vsnString inClass:self
     ] ifFalse:[
         info := Class revisionInfoFromString:vsnString.
     ].
@@ -5296,7 +5296,7 @@
 !Class class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.585 2011-07-01 11:44:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.586 2011-07-01 13:04:14 cg Exp $'
 !
 
 version_SVN