--- a/Scroller.st	Wed Jul 25 10:45:53 2001 +0200
+++ b/Scroller.st	Wed Jul 25 19:49:06 2001 +0200
@@ -2529,14 +2529,14 @@
 !
 
 verticalScrollStep
-    "mouse wheel: scroll by a quarter of a page
+    "mouse wheel: scroll by keyboardStep or a quarter of a page
      Note: this is used for horizontal scrollers, too"
 
-    ^ (thumbHeight // 4) max:1
+    ^ (keyboardStep ? (thumbHeight / 4)) max:1
 ! !
 
 !Scroller class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.156 2001-07-25 08:45:53 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.157 2001-07-25 17:49:06 stefan Exp $'
 ! !