--- a/ViewScroller.st	Sat Apr 02 17:06:23 2016 +0200
+++ b/ViewScroller.st	Sat Apr 02 17:07:43 2016 +0200
@@ -682,7 +682,7 @@
     "return the amount by which to step-scroll vertically"
 
     verticalScrollStep notNil ifTrue:[ ^ verticalScrollStep].
-    ^ (self graphicsDevice verticalPixelPerMillimeter * 20) asInteger
+    ^ (device verticalPixelPerMillimeter * 20) asInteger
 "/    ^ (self height // 3)
 ! !