--- a/ObjectMemory.st	Mon Jan 07 15:31:33 2008 +0100
+++ b/ObjectMemory.st	Mon Jan 07 16:19:39 2008 +0100
@@ -1767,39 +1767,39 @@
     |names oClass|
 
     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 allBold "/ (key copyFrom:(idx+2)) allBold
-		].
-		^ 'Smalltalk:' , (key allBold).
-	    ]
-	].
+        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 allBold "/ (key copyFrom:(idx+2)) allBold
+                ].
+                ^ 'Smalltalk:' , (key allBold).
+            ]
+        ].
     ] ifFalse:[
-	names := referent class allInstVarNames.
-	oClass := referent class.
-	1 to:oClass instSize do:[:i |
-	    ((referent instVarAt:i) == anObject) ifTrue:[
-		^ (referent classNameWithArticle , ' [' , (names at:i) allBold, ']').
-	    ].
-	].
-	oClass isVariable ifTrue:[
-	    oClass isPointers ifTrue:[
-		1 to:referent basicSize do:[:i |
-		    ((referent basicAt:i) == anObject) ifTrue:[
-			^ (referent classNameWithArticle , ' [' , i printString allBold, ']').
-		    ]
-		]
-	    ]
-	].
+        names := referent class allInstVarNames.
+        oClass := referent class.
+        1 to:oClass instSize do:[:i |
+            ((referent instVarAt:i) == anObject) ifTrue:[
+                ^ (referent classNameWithArticle , ' [' , (names at:i) allBold, ']').
+            ].
+        ].
+        oClass isVariable ifTrue:[
+            oClass isPointers ifTrue:[
+                1 to:referent basicSize do:[:i |
+                    ((referent basicAt:i) == anObject) ifTrue:[
+                        ^ (referent classNameWithArticle , ' [' , i printString allBold, ']').
+                    ]
+                ]
+            ]
+        ].
     ].
-    self error:'no reference'.
+    self error:'no reference' mayProceed:true.
     ^ nil.
 
     "Created: / 2.2.1998 / 23:46:12 / cg"
@@ -5197,7 +5197,7 @@
 !ObjectMemory class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ObjectMemory.st,v 1.234 2007-10-17 12:02:41 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ObjectMemory.st,v 1.235 2008-01-07 15:19:39 cg Exp $'
 ! !
 
 ObjectMemory initialize!