diff --git a/tools/clog-builder-repl.lisp b/tools/clog-builder-repl.lisp
index c2d19fd..2d586b2 100644
--- a/tools/clog-builder-repl.lisp
+++ b/tools/clog-builder-repl.lisp
@@ -29,6 +29,12 @@
       (setf (text-value (package-div repl)) package))
     (when *clog-repl-private-console*
       (let ((pcon (on-open-repl-console obj win)))
+        (set-on-click (create-span (window-icon-area win)
+                                   :content "⨀ "
+                                   :auto-place :top)
+                      (lambda (obj)
+                        (declare (ignore obj))
+                        (window-focus pcon)))
         (setf (window-param win) pcon)
         (set-on-window-close win (lambda (obj)
                                    (declare (ignore obj))