--- a/Class.st	Mon Mar 03 13:43:44 1997 +0100
+++ b/Class.st	Mon Mar 03 13:46:19 1997 +0100
@@ -793,11 +793,11 @@
 
     |idx nsName|
 
-    (Smalltalk at:name) ~~ self ifTrue:[
-        "/ mhmh - anonymous, or someone played around with my name
-
-        ^ nil
-    ].
+"/    (Smalltalk at:name) ~~ self ifTrue:[
+"/        "/ mhmh - anonymous, or someone played around with my name
+"/
+"/        ^ nil
+"/    ].
 
     "/ due to the implementation, extract this from my name
     "/ (physically, all classes are found in Smalltalk)
@@ -813,7 +813,7 @@
     nsName := name copyTo:(idx - 2).
     ^ Smalltalk at:nsName asSymbol
 
-    "Modified: 5.1.1997 / 18:18:45 / cg"
+    "Modified: 3.3.1997 / 11:27:03 / cg"
 !
 
 package
@@ -4888,6 +4888,6 @@
 !Class class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.256 1997-02-01 14:36:28 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.257 1997-03-03 12:46:19 cg Exp $'
 ! !
 Class initialize!