--- a/ObjectMemory.st	Thu Feb 05 12:09:04 1998 +0100
+++ b/ObjectMemory.st	Thu Feb 05 12:12:01 1998 +0100
@@ -1608,7 +1608,16 @@
 
     referent == Smalltalk ifTrue:[
         referent keysAndValuesDo:[:key :val |
+            |idx|
+
             (anObject == val) ifTrue:[
+                "/ for our convenience - if its a nameSpace, cut off Smalltalk.
+                idx := key string indexOf:$:.
+                (idx ~~ 0 
+                and:[idx < key string size
+                and:[(key string at:(idx+1)) == $:]]) ifTrue:[
+                    ^ (key copyFrom:(idx+2)) asText allBold
+                ].
                 ^ 'Smalltalk:' , (key asText allBold).
             ]
         ].
@@ -1633,7 +1642,7 @@
     self halt:'no reference'.
 
     "Created: / 2.2.1998 / 23:46:12 / cg"
-    "Modified: / 3.2.1998 / 01:20:29 / cg"
+    "Modified: / 4.2.1998 / 22:03:36 / cg"
 !
 
 sizeOf:anObject
@@ -4532,6 +4541,6 @@
 !ObjectMemory class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ObjectMemory.st,v 1.153 1998-02-03 13:37:53 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ObjectMemory.st,v 1.154 1998-02-05 11:12:01 cg Exp $'
 ! !
 ObjectMemory initialize!