--- a/Number.st	Thu Oct 04 11:23:55 2001 +0200
+++ b/Number.st	Thu Oct 04 16:42:07 2001 +0200
@@ -319,7 +319,8 @@
 	pos > 180 ifTrue: [pos _ pos - 360].
 	^ pos
 
-"#(-500 -300 -150 -5 0 5 150 300 500 1200) collect: [:n | n asSmallAngleDegrees]"!
+"#(-500 -300 -150 -5 0 5 150 300 500 1200) collect: [:n | n asSmallAngleDegrees]"
+!
 
 newTileMorphRepresentative
 	^ TileMorph new addArrows; setLiteral: self; addSuffixIfCan
@@ -329,7 +330,6 @@
     ^ self rounded printString
 ! !
 
-
 !Number methodsFor:'coercing & converting'!
 
 coerce:aNumber
@@ -449,6 +449,16 @@
 
 !Number methodsFor:'intervals'!
 
+downTo:stop
+    "return an interval from receiver down to the argument, incrementing by -1"
+
+    ^ self to:stop by:-1
+
+    "
+     (10 downTo:1) do:[:i | Transcript showCR:i].
+    "
+!
+
 to:stop
     "return an interval from receiver up to the argument, incrementing by 1"
 
@@ -634,5 +644,5 @@
 !Number class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Number.st,v 1.62 2000-08-29 15:11:39 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Number.st,v 1.63 2001-10-04 14:42:07 cg Exp $'
 ! !