--- a/Heap.st	Tue Apr 02 11:10:35 2013 +0200
+++ b/Heap.st	Tue Apr 02 12:06:11 2013 +0200
@@ -36,19 +36,19 @@
 !
 
 withAll: aCollection
-	"Create a new heap with all the elements from aCollection"
-	^(self basicNew)
-		setCollection: aCollection asArray copy tally: aCollection size;
-		reSort;
-		yourself
+        "Create a new heap with all the elements from aCollection"
+        ^(self basicNew)
+                setCollection: aCollection asNewArray tally: aCollection size;
+                reSort;
+                yourself
 !
 
 withAll: aCollection sortBlock: sortBlock
-	"Create a new heap with all the elements from aCollection"
-	^(self basicNew)
-		setCollection: aCollection asArray copy tally: aCollection size;
-		sortBlock: sortBlock;
-		yourself
+        "Create a new heap with all the elements from aCollection"
+        ^(self basicNew)
+                setCollection: aCollection asNewArray tally: aCollection size;
+                sortBlock: sortBlock;
+                yourself
 ! !
 
 !Heap class methodsFor:'examples'!
@@ -372,10 +372,10 @@
 !Heap class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/Heap.st,v 1.4 2013-03-19 09:22:30 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/Heap.st,v 1.5 2013-04-02 10:06:11 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic2/Heap.st,v 1.4 2013-03-19 09:22:30 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/Heap.st,v 1.5 2013-04-02 10:06:11 stefan Exp $'
 ! !