Index: /branches/event-ide/ccl/cocoa-ide/hemlock/src/command.lisp
===================================================================
--- /branches/event-ide/ccl/cocoa-ide/hemlock/src/command.lisp	(revision 7933)
+++ /branches/event-ide/ccl/cocoa-ide/hemlock/src/command.lisp	(revision 7934)
@@ -380,5 +380,5 @@
   :value nil)
 
-(defcommand "Scroll Window Down" (p &optional (view (current-view)))
+(defcommand "Scroll Window Down" (p)
   "Move down one screenfull.
   With prefix argument scroll down that many lines."
@@ -390,5 +390,5 @@
     (set-scroll-position :page-down)))
 
-(defcommand "Scroll Window Up" (p &optional (view (current-view)))
+(defcommand "Scroll Window Up" (p)
   "Move up one screenfull.
   With prefix argument scroll up that many lines."
Index: /branches/event-ide/ccl/cocoa-ide/hemlock/src/morecoms.lisp
===================================================================
--- /branches/event-ide/ccl/cocoa-ide/hemlock/src/morecoms.lisp	(revision 7933)
+++ /branches/event-ide/ccl/cocoa-ide/hemlock/src/morecoms.lisp	(revision 7934)
@@ -419,5 +419,5 @@
 	     (page-offset point p))
 	    (t (goto-page point p)))
-    (hemlock-ext:scroll-mark-to-top point)))
+    (set-scroll-position :line point)))
 
 (defun goto-page (mark i)