--- a/Scroller.st	Sat Mar 18 06:16:50 1995 +0100
+++ b/Scroller.st	Sat Mar 18 16:25:44 1995 +0100
@@ -37,7 +37,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.17 1995-03-18 05:16:01 claus Exp $
+$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.18 1995-03-18 15:25:44 claus Exp $
 '!
 
 !Scroller class methodsFor:'documentation'!
@@ -58,7 +58,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.17 1995-03-18 05:16:01 claus Exp $
+$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.18 1995-03-18 15:25:44 claus Exp $
 "
 !
 
@@ -1163,25 +1163,27 @@
 buttonShiftPress:button x:x y:y
     "mouse-click with shift - jump to position"
 
-    |pos curr limit1 limit2 org|
+    |pos curr curr2 limit1 limit2 org|
 
     (moveDirection == #y) ifTrue:[
 	curr := y.
+	curr2 := y - (thumbFrame height // 2).
 	limit1 := height.
 	limit2 := thumbFrame top
     ] ifFalse:[
 	curr := x.
+	curr2 := x - (thumbFrame width // 2).
 	limit1 := width.
 	limit2 := thumbFrame left
     ].
 
-    (curr < 0) ifTrue:[                        "check against limits"
+    (curr2 < 0) ifTrue:[                        "check against limits"
 	pos := 0
     ] ifFalse:[
-	(curr > limit1) ifTrue:[
+	(curr2 > limit1) ifTrue:[
 	    pos := limit1
 	] ifFalse:[
-	    pos := curr
+	    pos := curr2
 	]
     ].