diff --git a/smalltalksrc/VMMaker/SpurMemoryManager.class.st b/smalltalksrc/VMMaker/SpurMemoryManager.class.st
index 66f76a9a28..134b6d0857 100644
--- a/smalltalksrc/VMMaker/SpurMemoryManager.class.st
+++ b/smalltalksrc/VMMaker/SpurMemoryManager.class.st
@@ -1755,25 +1755,21 @@ SpurMemoryManager >> allOldSpaceEntitiesForCoalescingFrom: firstObj do: aBlock [
 
 { #category : #'object enumeration' }
 SpurMemoryManager >> allOldSpaceEntitiesForCompactingFrom: initialObject to: finalObject do: aBlock [
-
 	<inline: true>
 	| limit prevObj prevPrevObj objOop nextObj |
 	self assert: (self isOldObject: initialObject).
 	self assert: (self oop: finalObject isLessThanOrEqualTo: endOfMemory).
 	prevPrevObj := prevObj := nil.
 	objOop := initialObject.
-	limit := (self oop: finalObject isLessThan: endOfMemory)
-		         ifTrue: [ self addressAfter: finalObject ]
-		         ifFalse: [ endOfMemory ].
-	[ 
-	self assert: objOop \\ self allocationUnit = 0.0.
-	self oop: objOop isLessThan: limit ] whileTrue: [ 
-		self assert: (self long64At: objOop) ~= 0.
-		nextObj := self objectAfter: objOop limit: endOfMemory.
-		aBlock value: objOop value: nextObj.
-		prevPrevObj := prevObj.
-		prevObj := objOop.
-		objOop := nextObj ].
+	limit := (self oop: finalObject isLessThan: endOfMemory) ifTrue: [self addressAfter: finalObject] ifFalse: [endOfMemory].
+	[self assert: objOop \\ self allocationUnit = 0.
+	 self oop: objOop isLessThan: limit] whileTrue:
+		[self assert: (self long64At: objOop) ~= 0.
+		 nextObj := self objectAfter: objOop limit: endOfMemory.
+		 aBlock value: objOop value: nextObj.
+		 prevPrevObj := prevObj.
+		 prevObj := objOop.
+		 objOop := nextObj].
 	self touch: prevPrevObj.
 	self touch: prevObj
 ]