diff --git a/lisp/serve-swank.lisp b/lisp/serve-swank.lisp
index d1b9200..0ebf1c9 100644
--- a/lisp/serve-swank.lisp
+++ b/lisp/serve-swank.lisp
@@ -5,9 +5,15 @@
 
 (defun swank (&rest r)
   (ql:quickload :swank :silent t)
-  (let ((port 4005))
+  (let ((port 4005)
+        (interface "localhost"))
     (loop for (var val) on (cdr r) by #'cddr
           do (cond ((equal var "--port")
-                    (setf port (parse-integer val)))))
-    (roswell.util:read-call "swank:create-server" :port port :dont-close t))
+                    (setf port (parse-integer val)))
+                   ((equal var "--interface")
+                    (setf interface val))))
+    (roswell.util:read-call "swank:create-server"
+                            :interface interface
+                            :port port
+                            :dont-close t))
   (loop (sleep 1)))