--- a/Scroller.st	Fri Oct 23 17:21:28 2009 +0200
+++ b/Scroller.st	Fri Oct 23 17:21:44 2009 +0200
@@ -2089,7 +2089,7 @@
     DefaultLevel ~~ level ifTrue:[
         self level:DefaultLevel.
     ].
-    DefaultBorderWidth ~~ borderWidth ifTrue:[
+    DefaultBorderWidth ~~ self borderWidth ifTrue:[
         self borderWidth:DefaultBorderWidth.
     ].
     thumbLevel := DefaultThumbLevel.
@@ -2670,5 +2670,9 @@
 !Scroller class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.189 2009-09-15 21:17:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.190 2009-10-23 15:21:44 cg Exp $'
+!
+
+version_CVS
+    ^ '$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.190 2009-10-23 15:21:44 cg Exp $'
 ! !