diff --git a/source/clog-connection.lisp b/source/clog-connection.lisp
index 5cfbd98..608bc89 100644
--- a/source/clog-connection.lisp
+++ b/source/clog-connection.lisp
@@ -75,7 +75,7 @@ script."
   #-(or sbcl ecl mezzano) (apply #'make-hash-table args))
 
 (defvar *verbose-output* nil "Verbose server output (default false)")
-(defvar *break-on-error* t "Allow invoking debugger (default true)")
+(defvar *break-on-error* t   "Allow invoking debugger (default true)")
 
 (defvar *app*            nil "Clack 'app' middle-ware")
 (defvar *client-handler* nil "Clack 'handler' for socket traffic")
@@ -372,7 +372,8 @@ instead of the compiled version."
   (format t "Boot js source       : ~A~%"    (if static-boot-js
 						 "actual file"
 						 "compiled in"))
-  (format t "Boot file for path / : ~A~%"    boot-file))
+  (format t "Boot file for path / : ~A~%"    boot-file)
+  *client-handler*)
 
 ;;;;;;;;;;;;;;;;;;;
 ;; shutdown-clog ;;
diff --git a/source/clog-gui.lisp b/source/clog-gui.lisp
index a00abfc..8b6c768 100644
--- a/source/clog-gui.lisp
+++ b/source/clog-gui.lisp
@@ -1225,7 +1225,6 @@ interactions. Use window-end-modal to undo."))
 	(setf (top obj) (unit :px (menu-bar-height obj)))
 	(let* ((body        (connection-data-item obj "clog-body"))
 	       (body-height (height (html-document body))))
-	  (print body-height)
 	  (if (>= top-loc body-height)
 	      (setf (top obj) (unit :px (- body-height 15)))))))
   (when (on-window-move-done obj)