Index: /trunk/ccl/hemlock/src/command.lisp
===================================================================
--- /trunk/ccl/hemlock/src/command.lisp	(revision 628)
+++ /trunk/ccl/hemlock/src/command.lisp	(revision 629)
@@ -301,10 +301,5 @@
   window, down one screenfull.  If P is supplied then scroll that
   many lines."
-  (if p
-      (scroll-window window p)      
-      (let ((height (window-height window))
-	    (overlap (value scroll-overlap)))
-	(scroll-window window (if (<= height overlap) 
-				  height (- height overlap))))))
+  (scroll-window window (or p 1)))
 
 (defcommand "Scroll Window Up" (p &optional (window (current-window)))
@@ -314,10 +309,5 @@
   window, up one screenfull.  If P is supplied then scroll that
   many lines."
-  (if p
-      (scroll-window window (- p))
-      (let ((height (- (window-height window)))
-	    (overlap (- (value scroll-overlap))))
-	(scroll-window window (if (>= height overlap) 
-				  height (- height overlap))))))
+  (scroll-window window (or p -1)))
 
 (defcommand "Scroll Next Window Down" (p)