diff --git a/start-web-server b/start-web-server
index 5bd2fb8..7ac48c2 100755
--- a/start-web-server
+++ b/start-web-server
@@ -120,7 +120,7 @@ exec scsh -lel SSAX-4.9/load.scm -lel sunet-2.1/load.scm -dm -o http-test -e mai
     
     (define (main args)
       (with-cwd 
-	  (file-name-directory (car (command-line)))
+	  (file-name-directory (car args))
 	(let ((options (make-options-from-args (cdr args))))
 
 	  (format #t "Going to run Webserver with: