--- a/Magnitude.st	Tue Jun 18 12:01:58 2002 +0200
+++ b/Magnitude.st	Wed Jun 19 14:08:24 2002 +0200
@@ -149,7 +149,7 @@
     |tmp|
 
     tmp := self.
-    (incr > 0) ifTrue:[
+    (incr >= 0) ifTrue:[
         [tmp <= stop] whileTrue:[
             aBlock value:tmp.
             tmp := tmp+incr
@@ -331,5 +331,5 @@
 !Magnitude class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Magnitude.st,v 1.16 2001-10-04 14:44:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Magnitude.st,v 1.17 2002-06-19 12:08:24 cg Exp $'
 ! !