diff --git a/racket/collects/compiler/distribute.rkt b/racket/collects/compiler/distribute.rkt
index 266a893982..9578ca6e9d 100644
--- a/racket/collects/compiler/distribute.rkt
+++ b/racket/collects/compiler/distribute.rkt
@@ -176,19 +176,21 @@
 	 (unless (directory-exists? lib-plt-dir)
 	   (make-directory lib-plt-dir))
 	 (let ([copy-bin
-		(lambda (name variant)
-		  (copy-file* (build-path (find-console-bin-dir) 
+		(lambda (name variant gr?)
+		  (copy-file* (build-path (if gr?
+                                              (find-lib-dir)
+                                              (find-console-bin-dir))
                                           (format "~a~a" name (variant-suffix variant #f)))
 			      (build-path lib-plt-dir 
 					  (format "~a~a-~a" name variant (version)))))])
 	   (when (memq 'racketcgc types)
-	     (copy-bin "racket" 'cgc))
+	     (copy-bin "racket" 'cgc #f))
 	   (when (memq 'racket3m types)
-	     (copy-bin "racket" '3m))
+	     (copy-bin "racket" '3m #f))
 	   (when (memq 'gracketcgc types)
-	     (copy-bin "gracket" 'cgc))
+	     (copy-bin "gracket" 'cgc #t))
 	   (when (memq 'gracket3m types)
-	     (copy-bin "gracket" '3m)))
+	     (copy-bin "gracket" '3m #t)))
 	 (when (shared-libraries?)
 	   (when (or (memq 'racketcgc types)
 		     (memq 'gracketcgc types))