diff --git a/tools/clog-builder-eval.lisp b/tools/clog-builder-eval.lisp
index e3153e8..084b892 100644
--- a/tools/clog-builder-eval.lisp
+++ b/tools/clog-builder-eval.lisp
@@ -9,6 +9,7 @@
         (let* ((win (on-open-file obj :title "CLOG Builder Console"
                                       :is-console t
                                       :editor-use-console-for-evals t)))
+          (setf (clog-ace:mode (window-param win)) "ace/mode/plain_text")
           (set-on-window-can-close win (lambda (obj)
                                          (setf (hiddenp obj) t)
                                          nil))
diff --git a/tools/clog-builder-projects.lisp b/tools/clog-builder-projects.lisp
index 0dbb91a..3c92d30 100644
--- a/tools/clog-builder-projects.lisp
+++ b/tools/clog-builder-projects.lisp
@@ -121,7 +121,7 @@
                       (or (read-file file-name)
                           ""))
                 (on-populate-loaded-window content :win win)
-                (setf (window-title win) (attribute content "data-clog-name"))
+                (setf (window-title (parent (parent panel))) (attribute content "data-clog-name"))
                 (write-file (render-clog-code content (bottom-panel box))
                             render-file-name)
                 (window-close win)
@@ -131,7 +131,7 @@
   (let ((app (connection-data-item panel "builder-app-data"))
         (already (asdf:already-loaded-systems))
         (sel (text-value (project-list panel))))
-    (setf (window-title (current-window panel))
+    (setf (window-title (parent (parent panel)))
           (format nil "Project - ~A" sel))
     (reset-control-pallete panel)
     (setf (inner-html (runtime-list panel)) "")
@@ -207,6 +207,7 @@
                                    (projects-load (format nil "~A/tools" sel))
                                  (error ()
                                    (projects-load sel)))
+                               (window-focus (parent (parent panel)))
                                (projects-populate panel))
                              (t
                                (setf (current-project app) nil)