--- a/ObjectMemory.st	Tue Jun 03 07:39:18 2014 +0200
+++ b/ObjectMemory.st	Tue Jun 03 07:39:54 2014 +0200
@@ -1774,27 +1774,27 @@
      |chain|
 
      index > levels size ifTrue:[
-	(start referencesObject:anObject) ifTrue:[
-	    ^ OrderedCollection with:anObject. "/ (self refNameFor:anObject in:start)
-	].
-	^ nil.
+        (start referencesObject:anObject) ifTrue:[
+            ^ OrderedCollection with:anObject. "/ (self refNameFor:anObject in:start)
+        ].
+        ^ nil.
      ].
 
      (levels at:index) do:[:el |
 el ~~ start ifTrue:[
-	(start referencesObject:el) ifTrue:[
-	    chain := self
-			refChainFrom:el
-			to:anObject
-			inRefSets:levels
-			startingAt:(index+1).
-
-	    chain notNil ifTrue:[
-		(levels at:index) saveRemove:el.
-		chain addFirst:el. "/ (self refNameFor:el in:start).
-		^ chain.
-	    ]
-	].
+        (start referencesObject:el) ifTrue:[
+            chain := self
+                        refChainFrom:el
+                        to:anObject
+                        inRefSets:levels
+                        startingAt:(index+1).
+
+            chain notNil ifTrue:[
+                (levels at:index) safeRemove:el.
+                chain addFirst:el. "/ (self refNameFor:el in:start).
+                ^ chain.
+            ]
+        ].
 ].
      ].
      ^ nil
@@ -1818,8 +1818,8 @@
       a3 := Array with:a2.
       a4 := Array with:a3.
       levels := Array with:(Array with:a3)
-		      with:(Array with:a2)
-		      with:(Array with:a1).
+                      with:(Array with:a2)
+                      with:(Array with:a1).
 
       self refChainFrom:a4 to:o inRefSets:levels startingAt:1.
      "
@@ -1833,30 +1833,30 @@
      chains := OrderedCollection new.
 
      index > levels size ifTrue:[
-	(start referencesObject:anObject) ifTrue:[
-	    chains add:(OrderedCollection with:anObject "(self refNameFor:anObject in:start)").
-	].
-	^ chains
+        (start referencesObject:anObject) ifTrue:[
+            chains add:(OrderedCollection with:anObject "(self refNameFor:anObject in:start)").
+        ].
+        ^ chains
      ].
 
      (levels at:index) do:[:el |
 el ~~ start ifTrue:[
-	(start referencesObject:el) ifTrue:[
-	    chain := self
-			refChainFrom:el
-			to:anObject
-			inRefSets:levels
-			startingAt:(index+1).
-
-	    chain size > 0 ifTrue:[
-		(levels at:index) saveRemove:el.
-
-		c := chain copy.
-		c addFirst:el "(self refNameFor:el in:start)".
-		chains add:c.
-	    ]
+        (start referencesObject:el) ifTrue:[
+            chain := self
+                        refChainFrom:el
+                        to:anObject
+                        inRefSets:levels
+                        startingAt:(index+1).
+
+            chain size > 0 ifTrue:[
+                (levels at:index) safeRemove:el.
+
+                c := chain copy.
+                c addFirst:el "(self refNameFor:el in:start)".
+                chains add:c.
+            ]
 ].
-	].
+        ].
      ].
      ^ chains
 
@@ -5563,11 +5563,11 @@
 !ObjectMemory class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ObjectMemory.st,v 1.277 2014-05-16 13:08:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ObjectMemory.st,v 1.278 2014-06-03 05:39:54 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/ObjectMemory.st,v 1.277 2014-05-16 13:08:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ObjectMemory.st,v 1.278 2014-06-03 05:39:54 stefan Exp $'
 !
 
 version_SVN