--- a/Class.st	Mon Jul 20 13:19:13 1998 +0200
+++ b/Class.st	Mon Jul 20 14:19:14 1998 +0200
@@ -686,19 +686,18 @@
 
     idx := name lastIndexOf:$:.
     idx == 0 ifTrue:[
-	environment := Smalltalk.
-	^ Smalltalk
+        environment := Smalltalk.
+    ] ifFalse:[
+        (name at:idx-1) ~~ $: ifTrue:[
+            environment := Smalltalk.
+        ] ifFalse:[
+            nsName := name copyTo:(idx - 2).
+            environment := Smalltalk at:nsName asSymbol.
+        ]
     ].
-
-    (name at:idx-1) ~~ $: ifTrue:[
-	environment := Smalltalk.
-	^ Smalltalk
-    ].
-    nsName := name copyTo:(idx - 2).
-    environment := Smalltalk at:nsName asSymbol.
     ^ environment
 
-    "Modified: 24.3.1997 / 11:12:09 / cg"
+    "Modified: / 16.7.1998 / 21:23:17 / cg"
 !
 
 package
@@ -3878,5 +3877,5 @@
 !Class class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.318 1998-07-20 11:15:05 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.319 1998-07-20 12:19:14 cg Exp $'
 ! !