diff --git a/collects/meta/drdr/metadata.ss b/collects/meta/drdr/metadata.ss
index 0418eb0742..513c3045d8 100644
--- a/collects/meta/drdr/metadata.ss
+++ b/collects/meta/drdr/metadata.ss
@@ -16,7 +16,7 @@
   (match (get-prop a-path 'drdr:command-line #f)
     [#f
      (if (testable-file? a-path)
-         (list "mzscheme" "-qt" (path->string* a-path))
+         (list "racket" "-qt" (path->string* a-path))
          #f)]
     [""
      #f]
diff --git a/collects/meta/drdr/plt-build.ss b/collects/meta/drdr/plt-build.ss
index f9749c8af9..d0791683f1 100644
--- a/collects/meta/drdr/plt-build.ss
+++ b/collects/meta/drdr/plt-build.ss
@@ -145,14 +145,16 @@
     (revision-log-dir rev))
   (define trunk->log
     (rebase-path trunk-dir log-dir))
-  (define mzscheme-path
-    (path->string (build-path trunk-dir "bin" "mzscheme")))
+  (define racket-path
+    (path->string (build-path trunk-dir "bin" "racket")))
+  ; XXX fix
   (define mzc-path
     (path->string (build-path trunk-dir "bin" "mzc")))
-  (define mred-text-path
-    (path->string (build-path trunk-dir "bin" "mred-text")))
-  (define mred-path
-    (path->string (build-path trunk-dir "bin" "mred")))
+  (define gracket-text-path
+    (path->string (build-path trunk-dir "bin" "gracket-text")))
+  (define gracket-path
+    (path->string (build-path trunk-dir "bin" "gracket")))
+  ; XXX fix
   (define planet-path
     (path->string (build-path trunk-dir "bin" "planet")))
   (define collects-pth
@@ -185,13 +187,19 @@
                                               [#f
                                                #f]
                                               [(list-rest "mzscheme" rst)
-                                               (lambda () (list* mzscheme-path rst))]
+                                               (lambda () (list* racket-path rst))]
+                                              [(list-rest "racket" rst)
+                                               (lambda () (list* racket-path rst))]
                                               [(list-rest "mzc" rst)
                                                (lambda () (list* mzc-path rst))]
                                               [(list-rest "mred-text" rst)
-                                               (lambda () (list* mred-text-path "-display" (format ":~a" (+ XSERVER-OFFSET (current-worker))) rst))]
+                                               (lambda () (list* gracket-text-path "-display" (format ":~a" (+ XSERVER-OFFSET (current-worker))) rst))]
                                               [(list-rest "mred" rst)
-                                               (lambda () (list* mred-path "-display" (format ":~a" (+ XSERVER-OFFSET (current-worker))) rst))]
+                                               (lambda () (list* gracket-path "-display" (format ":~a" (+ XSERVER-OFFSET (current-worker))) rst))]
+                                              [(list-rest "gracket-text" rst)
+                                               (lambda () (list* gracket-text-path "-display" (format ":~a" (+ XSERVER-OFFSET (current-worker))) rst))]
+                                              [(list-rest "gracket" rst)
+                                               (lambda () (list* gracket-path "-display" (format ":~a" (+ XSERVER-OFFSET (current-worker))) rst))]
                                               [_
                                                #f]))]       
                                     (if pth-cmd
@@ -233,7 +241,7 @@
    #:timeout (current-subprocess-timeout-seconds)
    #:env (current-env)
    (build-path log-dir "src" "build" "set-browser.ss")
-   mzscheme-path 
+   racket-path 
    (list "-t" (path->string* (build-path (drdr-directory) "set-browser.ss"))))
   ; And go
   (notify! "Starting testing")