--- a/Scroller.st	Mon Jun 16 20:28:31 1997 +0200
+++ b/Scroller.st	Tue Jun 17 10:40:30 1997 +0200
@@ -557,7 +557,11 @@
      delta needFullDraw 
      bgLeft bgTop bgWidth bgHeight|
 
-    newOrigin := (aNumber - rangeStart) asFloat / (rangeEnd - rangeStart / 100).
+    aNumber isNil ifTrue:[
+        newOrigin := 0
+    ] ifFalse:[
+        newOrigin := (aNumber - rangeStart) asFloat / (rangeEnd - rangeStart / 100).
+    ].
 
     ((newOrigin + thumbHeight) > 100) ifTrue:[
         realNewOrigin := 100 - thumbHeight
@@ -698,7 +702,7 @@
         ]
     ]
 
-    "Modified: 17.4.1997 / 02:11:23 / cg"
+    "Modified: 17.6.1997 / 10:37:06 / cg"
 !
 
 thumbOrigin:originNumber thumbHeight:heightNumber
@@ -1949,5 +1953,5 @@
 !Scroller class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.83 1997-04-26 11:45:07 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.84 1997-06-17 08:40:30 cg Exp $'
 ! !