--- a/Slider.st	Fri Dec 08 19:01:29 2017 +0100
+++ b/Slider.st	Wed Dec 20 21:13:45 2017 +0100
@@ -285,14 +285,22 @@
 !Slider methodsFor:'forced scroll'!
 
 pageDown
-    "ignored - a slider has no concept of page-wise scrolling"
+    "fallback to scroll-stepping (same as kbd-right/down)"
 
+    "/ used to be always ignored
+    keyboardStep notNil ifTrue:[
+        self scrollStep:keyboardStep.
+    ].
     ^ self
 !
 
 pageUp
-    "ignored - a slider has no concept of page-wise scrolling"
+    "fallback to scroll-stepping (same as kbd-right/down)"
 
+    "/ used to be always ignored
+    keyboardStep notNil ifTrue:[
+        self scrollStep:keyboardStep negated.
+    ].
     ^ self
 ! !