--- a/Magnitude.st	Fri Feb 27 22:13:55 2009 +0100
+++ b/Magnitude.st	Sat Feb 28 01:22:15 2009 +0100
@@ -160,6 +160,17 @@
 
 !Magnitude methodsFor:'iteration'!
 
+downTo:stop by:step do:aBlock
+    "For each element of the interval from the receiver down to the argument stop,
+     decrementing by step, evaluate aBlock, passing the number as argument."
+
+    ^ self to:stop by:step negated do:aBlock
+
+    "
+     10 downTo:1 by:2 do:[:i | Transcript showCR:i].
+    "
+!
+
 downTo:stop do:aBlock
     "For each element of the interval from the receiver down to the argument stop,
      evaluate aBlock, passing the number as argument."
@@ -374,5 +385,5 @@
 !Magnitude class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Magnitude.st,v 1.23 2008-10-19 11:12:44 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Magnitude.st,v 1.24 2009-02-28 00:22:15 cg Exp $'
 ! !