--- a/Class.st	Tue Mar 09 23:59:39 1999 +0100
+++ b/Class.st	Wed Mar 10 00:02:09 1999 +0100
@@ -1817,10 +1817,10 @@
                 ] ifFalse:[
                     "/ no class with that name found in my namespace ...
                     "/ if the superclass resides in Smalltalk,
-                    "/ suppress prefix.
+                    "/ suppress prefix; otherwise, use full prefix.
                     (superclass nameSpace notNil 
                     and:[superclass nameSpace ~~ Smalltalk]) ifTrue:[
-                        s := superclass nameSpace name , '::' , superName
+                        s := superclass name
                     ] ifFalse:[
                         s := superName
                     ]
@@ -3915,5 +3915,5 @@
 !Class class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.332 1999-03-09 21:44:58 tm Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.333 1999-03-09 23:02:09 cg Exp $'
 ! !