X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~mdw/git/zone/blobdiff_plain/da455301f2c3e2cc7e8bd9154bfb714828be0f11..f1d7d492baa865026add48fa604328c87ac7042e:/frontend.lisp

diff --git a/frontend.lisp b/frontend.lisp
index 9d62d29..f957601 100644
--- a/frontend.lisp
+++ b/frontend.lisp
@@ -22,7 +22,7 @@
 ;;; Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
 
 (defpackage #:zone.frontend
-  (:use #:common-lisp #:optparse #:net #:zone
+  (:use #:common-lisp #:mdw.sys-base #:optparse #:net #:zone
 	#+cmu #:mop
 	#+sbcl #:sb-mop)
   (:export #:main))
@@ -93,6 +93,7 @@ (define-program
 			   "Write information about zone NAME.")))
 
 (defun main ()
+  (set-command-line-arguments)
   (with-unix-error-reporting ()
     (let ((files nil))
       (unless (option-parse-try