diff --git a/lisp/emacs.ros b/lisp/emacs.ros
index 0720b9a..92486f7 100644
--- a/lisp/emacs.ros
+++ b/lisp/emacs.ros
@@ -31,6 +31,11 @@ exec ros -m roswell -N roswell -- $0 "$@"
     (mute-error-if-not-verbose
      (roswell:exec
       `("emacs" "-l" ,(namestring path) "--eval"
-                ,(format nil "(setq inferior-lisp-program \"ros -Q ~:[~;~:*-L ~A ~]run\")" (roswell:opt "*lisp"))
+                ,(format nil
+                         #-win32
+                         "(setq inferior-lisp-program \"ros -Q ~:[~;~:*-L ~A ~]run\")"
+                         #+win32
+                         "\"(setq inferior-lisp-program \\\"ros -Q ~:[~;~:*-L ~A ~]run\\\")\""
+                         (roswell:opt "*lisp"))
                 ,@argv)))))
 ;;; vim: set ft=lisp lisp:
diff --git a/lisp/install-slime.lisp b/lisp/install-slime.lisp
index c561a1e..c7ca31c 100644
--- a/lisp/install-slime.lisp
+++ b/lisp/install-slime.lisp
@@ -82,7 +82,10 @@
     (format *error-output* "~{~A~%~}"
             `(,(format nil "helper.el installed in ~S" (namestring target)) ""
               "To use, add this to your ~/.emacs:" ""
-              ,(format nil "  (load (expand-file-name ~S))" enough)))))
+              ,(format nil
+                       "  (load (expand-file-name ~S))"
+                       #-win32 enough
+                       #+win32 (namestring target))))))
 
 (defun slime-install (argv)
   (let ((name (or (getf argv :version) (substitute #\. #\- (ql:dist-version "quicklisp")))))