diff --git a/source/clog-gui.lisp b/source/clog-gui.lisp
index 1cab44b..4b53a36 100644
--- a/source/clog-gui.lisp
+++ b/source/clog-gui.lisp
@@ -269,6 +269,7 @@
                     :modal modal
                     :title "clog-break in execution")))
 
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; clog-gui-initialize ;;
 ;;;;;;;;;;;;;;;;;;;;;;;;;
@@ -978,6 +979,7 @@ The on-window-change clog-obj received is the new window"))
                                           hide-title-bar
                                           drag-client-area
                                           has-pinner
+                                          closer-html
                                           keep-on-top
                                           window-param
                                           hidden
@@ -1007,6 +1009,7 @@ window-to-top-by-param or window-by-param."))
                                                (hide-title-bar nil)
                                                (drag-client-area nil)
                                                (has-pinner nil)
+                                               (closer-html "×")
                                                (keep-on-top nil)
                                                (window-param nil)
                                                (hidden nil)
@@ -1046,7 +1049,7 @@ window-to-top-by-param or window-by-param."))
                       style='position:absolute;top:0;right:20px;left:5px;
                              user-select:none;cursor:move;'>~A</span>~A
                     <span id='~A-closer'
-                      style='position:absolute;top:0;right:5px;cursor:pointer;user-select:none;'>&times;</span>
+                      style='position:absolute;top:0;right:5px;cursor:pointer;user-select:none;'>~A</span>
                   </div>
                   <div id='~A-body' ~A style='position:absolute;top:25px;left:0;right:0;bottom:3px;overflow:auto'>~A</div>
                   <div id='~A-sizer' style='position:absolute;right:0;bottom:0;left:0;user-select:none;height:3px;
@@ -1064,6 +1067,7 @@ window-to-top-by-param or window-by-param."))
                  ~A</span><span>&nbsp;&nbsp;&nbsp;</span>" html-id (code-char 9744))
                 "")
             html-id                                     ; closer
+            closer-html
             html-id
             (if drag-client-area
                 (format nil "data-drag-obj='~A' data-drag-type='m'" html-id)
diff --git a/tools/clog-builder-files.lisp b/tools/clog-builder-files.lisp
index f7a752c..5ce570f 100644
--- a/tools/clog-builder-files.lisp
+++ b/tools/clog-builder-files.lisp
@@ -72,7 +72,8 @@
                      left top
                      (editor-use-console-for-evals *editor-use-console-for-evals*)
                      has-time-out
-                     maximized)
+                     maximized
+                     (closer-html "&times;"))
   "Open a new text editor"
   (let ((win (window-to-top-by-title obj open-file)))
     (when win
@@ -98,6 +99,7 @@
                                      :width 700 :height 480
                                      :has-pinner is-console
                                      :keep-on-top is-console
+                                     :closer-html closer-html
                                      :client-movement *client-side-movement*))
              (box (create-panel-box-layout (window-content win)
                                            :left-width 0 :right-width 0
diff --git a/tools/clog-builder-repl.lisp b/tools/clog-builder-repl.lisp
index 8866d6e..69f9262 100644
--- a/tools/clog-builder-repl.lisp
+++ b/tools/clog-builder-repl.lisp
@@ -4,6 +4,7 @@
   (let* ((win (on-open-file obj :title "CLOG REPL Console"
                                 :is-console t
                                 :top 520 :left 300
+                                :closer-html "&#10752;"
                                 :editor-use-console-for-evals t)))
     (set-on-window-can-close win (lambda (obj)
                                    (declare (ignore obj))