diff --git a/tools/clog-builder-project-tree.lisp b/tools/clog-builder-project-tree.lisp
index 70710ca..101f515 100644
--- a/tools/clog-builder-project-tree.lisp
+++ b/tools/clog-builder-project-tree.lisp
@@ -107,6 +107,22 @@
                                                               (project-tree-dir-select obj (format nil "~A" item)))
                                              :indent-level (1+ (indent-level node))
                                              :visible nil
+                                             :on-context-menu
+                                               (lambda (obj)
+                                                 (let* ((disp (text-value (content obj)))
+                                                        (menu (create-panel obj
+                                                                            :left (left obj) :top (top obj)
+                                                                            :width (width obj)
+                                                                            :class *builder-window-desktop-class*))
+                                                        (title (create-div menu :content disp))
+                                                        (op    (create-div menu :content "Toggle Open" :class *builder-menu-context-item-class*))
+                                                        (opo   (create-div menu :content "Open in OS" :class *builder-menu-context-item-class*)))
+                                                   (declare (ignore title op))
+                                                   (set-on-click opo (lambda (i)
+                                                                       (declare (ignore i))
+                                                                       (open-file-with-os item))
+                                                                 :cancel-event t)
+                                                   (set-on-mouse-leave menu (lambda (obj) (destroy obj)))))
                                              :content (first (last (pathname-directory item))))))
                        (dolist (item (sort (uiop:directory-files (directory-namestring dir))
                                            (lambda (a b)
diff --git a/tools/clog-builder-shell.lisp b/tools/clog-builder-shell.lisp
index 15efa62..00d3a0e 100644
--- a/tools/clog-builder-shell.lisp
+++ b/tools/clog-builder-shell.lisp
@@ -4,7 +4,7 @@
   "Open a shell"
   (let* ((*default-title-class*      *builder-title-class*)
          (*default-border-class*     *builder-border-class*)
-         (win (create-gui-window obj :title (format nil "OS Shell - ~A - ~A"
+         (win (create-gui-window obj :title (format nil "OS Pseudo Shell - ~A - ~A"
                                                     (uiop:operating-system)
                                                     (uiop:hostname))
                                      :top 40 :left 225