--- a/Scroller.st	Thu Dec 21 14:07:28 2000 +0100
+++ b/Scroller.st	Thu Dec 21 18:23:21 2000 +0100
@@ -1012,6 +1012,7 @@
 
 repeatPageDown
     repeatBlock notNil ifTrue:[
+        self windowGroup repairDamage.
         self pageDown.
         self installRepeat.
     ]
@@ -1019,6 +1020,7 @@
 
 repeatPageUp
     repeatBlock notNil ifTrue:[
+        self windowGroup repairDamage.
         self pageUp.
         self installRepeat.
     ]
@@ -2499,5 +2501,5 @@
 !Scroller class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.151 2000-11-23 13:21:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.152 2000-12-21 17:23:21 cg Exp $'
 ! !