diff --git a/collects/tests/drracket/drracket-test-util.rkt b/collects/tests/drracket/drracket-test-util.rkt
index b7a6bff21c..d64427d7c9 100644
--- a/collects/tests/drracket/drracket-test-util.rkt
+++ b/collects/tests/drracket/drracket-test-util.rkt
@@ -177,9 +177,9 @@
     (let ([window (send frame get-focus-window)])
       (let-values ([(cw ch) (send window get-client-size)]
 		   [(w h) (send window get-size)])
-	(fw:test:mouse-click 'left
-			     (inexact->exact (+ cw (floor (/ (- w cw) 2))))
-			     (inexact->exact (+ ch (floor (/ (- h ch) 2)))))))
+        (fw:test:mouse-click 'left
+			     (inexact->exact (floor (+ cw (/ (- w cw) 2))))
+			     (inexact->exact (floor (+ ch (/ (- h ch) 2)))))))
     (fw:test:menu-select "Edit" "Select All")
     (fw:test:menu-select "Edit" (if (eq? (system-type) 'macos)
 				    "Clear"
@@ -332,8 +332,8 @@
                     (let-values ([(gx gy) (send editor editor-location-to-dc-location
                                                 (unbox b1)
                                                 (unbox b2))])
-                      (let ([x (inexact->exact (+ gx between-threshold 1))]
-                            [y (inexact->exact (+ gy between-threshold 1))])
+                      (let ([x (inexact->exact (floor (+ gx between-threshold 1)))]
+                            [y (inexact->exact (floor (+ gy between-threshold 1)))])
                         (fw:test:mouse-click 'left x y)))))])
           (send language-choice focus)
           (let loop ([list-item language-choice]
@@ -571,7 +571,8 @@
 	 (lambda (name [fail (lambda () #f)])
 	   (hash-ref prefs-table name fail))))
 	 
-      (dynamic-require 'drscheme #f)
+      (parameterize ([current-command-line-arguments #()])
+        (dynamic-require 'drscheme #f))
 
       ;; set all preferences to their defaults (some pref values may have
       ;; been read by this point, but hopefully that won't affect much