diff --git a/lisp/setup.ros b/lisp/setup.ros
index e133498..1ef7b91 100644
--- a/lisp/setup.ros
+++ b/lisp/setup.ros
@@ -86,7 +86,7 @@ exec ros -Q -N roswell -- $0 "$@"
                              (if (and env*
                                       (not (equal env* "-")))
                                  (format nil " -N ~A " env*)
-                                 (format nil " -L ~A " (opt "impl"))))
+                                 (format nil " -L ~A " (or (opt "*lisp") (opt "impl")))))
                           ,@(loop for i in dir
                                collect "--load "
                                     collect (format nil "~A " i))
diff --git a/lisp/util-dump.lisp b/lisp/util-dump.lisp
index 6117a69..4530b01 100644
--- a/lisp/util-dump.lisp
+++ b/lisp/util-dump.lisp
@@ -34,6 +34,8 @@ Notably, it must include all nicknames.")
 
 (defun dump-dir (&optional env)
   (let ((env (or env (opt "*roswellenv"))))
+    (setf env (if (equal env "-") nil
+                  env))
     (merge-pathnames (format nil "~Aimpls/~A/~A/~A/dump/"
                              (if env
                                  (format nil "env/~A/" env)
@@ -41,14 +43,15 @@ Notably, it must include all nicknames.")
                              (uname-m) (uname)
                              (or (when env
                                    (let* ((conf
-                                           (roswell.util.config:load-config
-                                            (merge-pathnames (format nil "env/~A/config" env)
-                                                             (homedir))))
+                                            (roswell.util.config:load-config
+                                             (merge-pathnames (format nil "env/~A/config" env)
+                                                              (homedir))))
                                           (lisp (third (assoc "default.lisp" conf :test 'equal)))
                                           (version (third (assoc (format nil "~a.version" lisp)
                                                                  conf :test 'equal))))
                                      (and lisp version
                                           (format nil "~A/~A" lisp version))))
+                                 (opt "*lisp")
                                  (opt "impl")))
                      (homedir))))