--- a/Scroller.st	Thu Nov 17 15:40:37 1994 +0100
+++ b/Scroller.st	Mon Nov 21 17:46:30 1994 +0100
@@ -43,7 +43,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.10 1994-11-17 14:38:34 claus Exp $
+$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.11 1994-11-21 16:46:30 claus Exp $
 '!
 
 !Scroller class methodsFor:'documentation'!
@@ -64,7 +64,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.10 1994-11-17 14:38:34 claus Exp $
+$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.11 1994-11-21 16:46:30 claus Exp $
 "
 !
 
@@ -614,9 +614,13 @@
 	percentSize := 100.
 	percentOrigin := 100
     ] ifFalse:[
-	viewsSize := (moveDirection == #y) ifTrue:[aView innerHeight] ifFalse:[aView innerWidth].
-	contentsPosition := (moveDirection == #y) ifTrue:[aView yOriginOfContents] ifFalse:[aView xOriginOfContents].
-
+	(moveDirection == #y) ifTrue:[
+	    viewsSize := aView innerHeight.
+	    contentsPosition := aView yOriginOfContents.
+	] ifFalse:[
+	    viewsSize := aView innerWidth.
+	    contentsPosition := aView xOriginOfContents
+	].
 
 	percentSize := viewsSize * 100.0 / contentsSize.
 	percentOrigin := contentsPosition * 100.0 / contentsSize.