diff --git a/tools/clog-builder.lisp b/tools/clog-builder.lisp
index 10ec753..d5a0d67 100644
--- a/tools/clog-builder.lisp
+++ b/tools/clog-builder.lisp
@@ -1520,11 +1520,11 @@ of controls and double click to select control."
 					  ;; return empty string to prevent nav off page
 					  ""))))
 
-(defun clog-builder (&key static-root)
+(defun clog-builder (&key (port 8080) static-root)
   "Start clog-builder."
   (if static-root
-      (initialize nil :static-root static-root)
-      (initialize nil))
+      (initialize nil :port port :static-root static-root)
+      (initialize nil :port port))
   (set-on-new-window 'on-new-builder :path "/builder")
   (set-on-new-window 'on-attach-builder-page :path "/builder-page")
-  (open-browser :url "http://127.0.0.1:8080/builder"))
+  (open-browser :url (format nil "http://127.0.0.1:~A/builder" port)))
diff --git a/tools/clog-db-admin.lisp b/tools/clog-db-admin.lisp
index 568b314..74c7198 100644
--- a/tools/clog-db-admin.lisp
+++ b/tools/clog-db-admin.lisp
@@ -167,7 +167,7 @@
     (set-on-window-can-size about (lambda (obj)
 				    (declare (ignore obj))()))))
 
-(defun on-new-window (body)
+(defun on-new-db-admin (body)
   (let ((app (make-instance 'app-data)))
     (setf (connection-data-item body "app-data") app)
     (setf (body app) body)
@@ -195,7 +195,10 @@
     (when (db-connection app)
       (sqlite:disconnect (db-connection app)))))
 
-(defun clog-db-admin ()
+(defun clog-db-admin (&key (port 8080) static-root)
   "Start clog-db-admin."
-  (initialize #'on-new-window)
-  (open-browser))
+  (if static-root
+      (initialize nil :port port :static-root static-root)
+      (initialize nil :port port))
+  (set-on-new-window 'on-new-db-admin :path "/dbadmin")
+  (open-browser :url (format nil "http://127.0.0.1:~A/dbadmin" port)))