diff --git a/asdf-paths.lisp b/asdf-paths.lisp
new file mode 100644
index 0000000..3519af2
--- /dev/null
+++ b/asdf-paths.lisp
@@ -0,0 +1,7 @@
+(in-package #:cl-user)
+
+(require '#:asdf)
+
+(asdf:initialize-source-registry
+ '(:source-registry (:tree :here)
+   :inherit-configuration))
diff --git a/editor/binary-build.lisp b/editor/binary-build.lisp
index 14ee53a..40a8db4 100644
--- a/editor/binary-build.lisp
+++ b/editor/binary-build.lisp
@@ -8,7 +8,7 @@ open it, check which pts it's running on using \"ps\", run a command like
 \"clear; while true; do sleep 1000;done\", then start the editor in another
 terminal giving the pts as a command-line parameter.~%"))
 
-(defun main (arguments)
+(defun main (&rest arguments)
   (format t "C64 Livecoding editor, v~A~%"
           #.(asdf:component-version (asdf:find-system '#:user-side-compiler)))
   (let ((tty (and (first arguments)
@@ -25,7 +25,7 @@ terminal giving the pts as a command-line parameter.~%"))
       ((abort
          (lambda ()
            (sb-ext:exit :code -1))))
-    (main (uiop:command-line-arguments))))
+    (apply #'main (uiop:command-line-arguments))))
 
 (defun build ()
   (assert (not (member :swank *features*)))
diff --git a/editor/package.lisp b/editor/package.lisp
index ad46bb0..8a22b55 100644
--- a/editor/package.lisp
+++ b/editor/package.lisp
@@ -1,4 +1,5 @@
 ;;;; package.lisp
 
 (defpackage #:editor
-  (:use #:cl #:trivial-gray-streams))
+  (:use #:cl #:trivial-gray-streams)
+  (:export #:main))