--- a/Class.st	Wed Oct 23 17:21:45 1996 +0200
+++ b/Class.st	Wed Oct 23 19:24:32 1996 +0200
@@ -3780,7 +3780,7 @@
     "/
     src := m source.
     src isNil ifTrue:[^ nil].
-    ^ self class revisionStringFromSource:src 
+    ^ Class revisionStringFromSource:src 
 
     "
      Smalltalk allClassesDo:[:cls |
@@ -3792,7 +3792,7 @@
     "
 
     "Created: 29.10.1995 / 19:28:03 / cg"
-    "Modified: 15.10.1996 / 18:57:43 / cg"
+    "Modified: 23.10.1996 / 18:23:56 / cg"
 !
 
 setBinaryRevision:aString
@@ -4111,6 +4111,6 @@
 !Class class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.195 1996-10-22 22:08:45 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.196 1996-10-23 17:24:32 cg Exp $'
 ! !
 Class initialize!