diff --git a/src/main.lisp b/src/main.lisp
index 7d72c5e..7998566 100644
--- a/src/main.lisp
+++ b/src/main.lisp
@@ -1,14 +1,14 @@
-(in-package :cl-user)
-(defpackage ritherdon-archive
-  (:use :cl)
-  (:import-from :ritherdon-archive.config
-                :config)
-  (:import-from :clack
-                :clackup)
-  (:export :start
-   :stop
-   :main))
-(in-package :ritherdon-archive)
+(in-package #:cl-user)
+(defpackage #:ritherdon-archive
+  (:use #:cl)
+  (:import-from #:ritherdon-archive.config
+                #:config)
+  (:import-from #:clack
+                #:clackup)
+  (:export #:start
+           #:stop
+           #:main))
+(in-package #:ritherdon-archive)
 
 (defvar *appfile-path*
   (asdf:system-relative-pathname :ritherdon-archive #P"app.lisp"))
@@ -34,11 +34,10 @@
 ================================================================================
 https://lisp-journey.gitlab.io/web-dev/#building
 The code below was taken from the URL above (with slight modifications). It's
-main use is to make it easier to start the server via a script (see /scripts and
-most likely the start-hunchentoot-production.sh script in-particular). 
+main use is to make it easier to start the server via a script.
 |#
-(defun main (port)
-  (start :server :hunchentoot
+(defun main (&key (port 5000))
+  (start :server :woo ; hunchentoot or woo.
 	 :port port
 	 :debug (if (ritherdon-archive.config:productionp)
 		    nil
@@ -46,7 +45,7 @@ most likely the start-hunchentoot-production.sh script in-particular).
   ;; with bordeaux-threads
   (handler-case (bt:join-thread
 		 (find-if (lambda (th)
-                            (search "hunchentoot" (bt:thread-name th)))
+                            (search "woo" (bt:thread-name th)))
                           (bt:all-threads)))
     (#+sbcl sb-sys:interactive-interrupt
      #+ccl  ccl:interrupt-signal-condition