diff --git a/lisp/compile-file.ros b/lisp/compile-file.ros
index 032d4c1..f0f34c1 100644
--- a/lisp/compile-file.ros
+++ b/lisp/compile-file.ros
@@ -1,7 +1,7 @@
 #!/bin/sh
 #|-*- mode:lisp -*-|#
 #|
-exec ros +Q +A -- $0 "$@"
+exec ros -Q +A -- $0 "$@"
 |#
 (progn ;;init forms
   #-asdf(ros:ensure-asdf :version nil)
@@ -49,8 +49,8 @@ exec ros +Q +A -- $0 "$@"
     (consume
      argv
      (("-o" opt)
-      (uiop:chdir
-       (setf *default-pathname-defaults* (truename opt)))
+      (read-call "uiop:chdir"
+                 (setf *default-pathname-defaults* (truename opt)))
       (setf out t))
      (("-o-")
       (setf out nil))
@@ -62,19 +62,19 @@ exec ros +Q +A -- $0 "$@"
       (setf asdf nil))
      ((:in file)
       (if asdf
-          (uiop:chdir
-           (setf *default-pathname-defaults*
-                 (merge-pathnames (format nil "lisp/asdf/~A/" file) (homedir))))
+          (read-call "uiop:chdir"
+                     (setf *default-pathname-defaults*
+                           (merge-pathnames (format nil "lisp/asdf/~A/" file) (homedir))))
           (when (ros:opt "asdf.version")
             (ros:asdf)))
       (funcall (read-from-string "asdf:compile-file*")
                (if asdf
-                   "asdf.lisp"
+                   (merge-pathnames "asdf.lisp" *default-pathname-defaults*)
                    file)
                :output-file
                (make-pathname
                 :defaults (if (or out asdf)
-                              (uiop:getcwd)
+                              *default-pathname-defaults*
                               (fasl-dir))
                 :name (if asdf
                           "asdf"
diff --git a/lisp/dist-add.lisp b/lisp/dist-add.lisp
new file mode 100644
index 0000000..054f38b
--- /dev/null
+++ b/lisp/dist-add.lisp
@@ -0,0 +1,7 @@
+(defpackage :roswell.dist.add
+  (:use :cl))
+(in-package :roswell.dist.add)
+
+(defun add (&rest r)
+  (dolist (elm (rest r))
+    (ql-dist:install-dist elm :prompt nil)))
\ No newline at end of file