diff --git a/source/clog-connection.lisp b/source/clog-connection.lisp
index 6f13517..b72d427 100644
--- a/source/clog-connection.lisp
+++ b/source/clog-connection.lisp
@@ -395,7 +395,10 @@ the default answer. (Private)"
                      (boot-function    nil)
                      (static-boot-html nil)
                      (static-boot-js   nil)
-                     (static-root      #P"./static-files/"))
+                     (static-root      #P"./static-files/")
+                     (ssl              nil)
+                     (ssl-key-file     nil)
+                     (ssl-cert-file    nil))
   "Initialize CLOG on a socket using HOST and PORT to serve BOOT-FILE as the
 default route for '/' to establish web-socket connections and static files
 located at STATIC-ROOT. The webserver used with CLACK can be chosen with
@@ -548,9 +551,14 @@ the contents sent to the brower."
                       lack-middleware-list
                       :initial-value *app*
                       :from-end t))
-  (setf *client-handler* (clack:clackup *app* :server server :address host :port port))
+  (setf *client-handler* (clack:clackup *app* :server server :address host :port port :ssl ssl :ssl-key-file ssl-key-file :ssl-cert-file ssl-cert-file))
   (format t "HTTP listening on    : ~A:~A~%" host port)
   (format t "HTML root            : ~A~%"    static-root)
+  (format t "SSL                  : ~A~%"    (if ssl
+                                                 "yes"
+                                                 "no"))
+  (format t "SSL Key File         : ~A~%"    ssl-key-file)
+  (format t "SSL Cert File        : ~A~%"    ssl-cert-file)
   (format t "Long poll first      : ~A~%"    (if long-poll-first
                                                  "yes"
                                                  "no"))
diff --git a/source/clog-system.lisp b/source/clog-system.lisp
index cceb7b3..4c6376a 100644
--- a/source/clog-system.lisp
+++ b/source/clog-system.lisp
@@ -76,7 +76,10 @@ the same as the clog directy this overides the relative paths used in them.")
        (static-boot-html nil)
        (static-boot-js   nil)
        (static-root      (merge-pathnames "./static-files/"
-                                          (asdf:system-source-directory :clog))))
+                                          (asdf:system-source-directory :clog)))
+       (ssl              nil)
+       (ssl-key-file     nil)
+       (ssl-cert-file    nil))
   "Inititalize CLOG on a socket using HOST and PORT to serve BOOT-FILE as the
 default route to establish web-socket connections and static files located at
 STATIC-ROOT. The webserver used with CLACK can be chosen with :SERVER and
@@ -110,7 +113,10 @@ see tutorial 12 for an example."
                       boot-function
                       static-boot-html
                       static-boot-js
-                      static-root))
+                      static-root
+                      ssl
+                      ssl-cert-file
+                      ssl-key-file))
   (setf *extended-routing* extended-routing)
   (when on-new-window-handler
     (set-on-new-window on-new-window-handler :path "/" :boot-file boot-file))