--- a/Heap.st	Tue Mar 19 10:22:28 2013 +0100
+++ b/Heap.st	Tue Mar 19 10:22:30 2013 +0100
@@ -182,11 +182,11 @@
 !Heap methodsFor:'adding'!
 
 add: anObject
-	"Include newObject as one of the receiver's elements. Answer newObject."
-	tally = array size ifTrue:[self grow].
-	array at: (tally := tally + 1) put: anObject.
-	self upHeap: tally.
-	^anObject
+    "Include newObject as one of the receiver's elements. Answer newObject."
+    tally = array size ifTrue:[self grow].
+    array at: (tally := tally + 1) put: anObject.
+    self upHeap: tally.
+    ^anObject
 ! !
 
 !Heap methodsFor:'comparing'!
@@ -372,9 +372,10 @@
 !Heap class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/Heap.st,v 1.3 2012-08-13 11:15:33 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/Heap.st,v 1.4 2013-03-19 09:22:30 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic2/Heap.st,v 1.3 2012-08-13 11:15:33 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/Heap.st,v 1.4 2013-03-19 09:22:30 cg Exp $'
 ! !
+