diff --git a/source/clog-gui.lisp b/source/clog-gui.lisp
index 2b9789b..737c154 100644
--- a/source/clog-gui.lisp
+++ b/source/clog-gui.lisp
@@ -109,6 +109,7 @@
   (*menu-full-screen-item*    variable)
   (*menu-icon-image-class*    variable)
   (*top-bar-height*           variable)
+  (*default-icon*             variable)
   (*default-title-class*      variable)
   (*default-border-class*     variable))
 
diff --git a/tools/clog-builder-files.lisp b/tools/clog-builder-files.lisp
index c6766fd..dde35cd 100644
--- a/tools/clog-builder-files.lisp
+++ b/tools/clog-builder-files.lisp
@@ -83,14 +83,14 @@
     (when win
       (let ((pop (connection-data-item obj "clog-popup")))
         (when pop
-          (close-window pop)
-          (window-focus win))
-        (when regex
-          (focus (window-param win))
-          (js-execute obj (format nil "~A.find({regExp:true,needle:'~A',caseSensitive:false})"
-                                  (clog-ace::js-ace (window-param win)) (escape-string regex))))
-        (when show-find
-          (clog-ace:execute-command (window-param win) "find")))
+          (focus pop)
+          (window-focus win)))
+      (when regex
+        (focus (window-param win))
+        (js-execute obj (format nil "~A.find('~A',{caseSensitive:false,regExp:true})"
+                                (clog-ace::js-ace (window-param win)) regex)))
+      (when show-find
+        (clog-ace:execute-command (window-param win) "find"))
       win)
     (unless win
       (let* ((app (connection-data-item obj "builder-app-data"))
diff --git a/tools/clog-builder-sys-browser.lisp b/tools/clog-builder-sys-browser.lisp
index 6270965..7e9ea82 100644
--- a/tools/clog-builder-sys-browser.lisp
+++ b/tools/clog-builder-sys-browser.lisp
@@ -103,7 +103,7 @@
 (defun sys-browser-file-name-on-click (panel target)
   (unless (or (equal (text-value target) "")
               (equal (text-value target) "click to open file in source editor"))
-    (on-open-file target :open-file (text-value target) :regex (search-js panel))))
+    (on-open-file target :open-file (text-value target) :show-find t :regex (search-js panel))))
 
 (defun sys-browser-eval-form-button-on-click (panel target)
   (declare (ignore target))