--- a/Stack.st	Sat Jan 31 16:03:29 2015 +0100
+++ b/Stack.st	Tue Feb 03 15:17:38 2015 +0100
@@ -11,6 +11,8 @@
 "
 "{ Package: 'stx:libbasic2' }"
 
+"{ NameSpace: Smalltalk }"
+
 OrderedCollection subclass:#Stack
 	instanceVariableNames:''
 	classVariableNames:''
@@ -123,7 +125,7 @@
 do: aBlock
     "Evaluate aBlock for each object on the stack, from top to bottom."
 
-    ^ super reverseDo:aBlock
+    super reverseDo:aBlock
 !
 
 reverseDo: aBlock
@@ -135,6 +137,6 @@
 !Stack class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/Stack.st,v 1.8 2014-11-26 08:50:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/Stack.st,v 1.9 2015-02-03 14:17:38 cg Exp $'
 ! !