--- a/Stack.st	Tue Feb 03 15:17:38 2015 +0100
+++ b/Stack.st	Tue Feb 03 15:17:52 2015 +0100
@@ -131,12 +131,16 @@
 reverseDo: aBlock
     "Evaluate aBlock for each object on the stack, from bottom to top."
 
-    ^ super do:aBlock
+    super do:aBlock
 ! !
 
 !Stack class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/Stack.st,v 1.9 2015-02-03 14:17:38 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/Stack.st,v 1.10 2015-02-03 14:17:52 cg Exp $'
+!
+
+version_CVS
+    ^ '$Header: /cvs/stx/stx/libbasic2/Stack.st,v 1.10 2015-02-03 14:17:52 cg Exp $'
 ! !