diff --git a/tools/clog-builder-project-tree.lisp b/tools/clog-builder-project-tree.lisp
index 4ba98a8..8a06277 100644
--- a/tools/clog-builder-project-tree.lisp
+++ b/tools/clog-builder-project-tree.lisp
@@ -234,21 +234,25 @@
                               (setf (background-color load-btn) load-np)
                               (window-focus win))
                    (on-change (obj)
+                     (declare (ignore obj))
                      (setf (text tree) "")
-                     (browser-gc obj)
+                     (browser-gc tree)
                      (let* ((sel (value projects)))
                        (setf entry-point "")
                        (cond ((equal sel "")
                                (setf (text-value load-btn) "no project")
+                               (setf (advisory-title load-btn) "Choose project in drop down")
                                (setf (background-color load-btn) load-np)
                                (setf (current-project app) nil))
                              (t
                               (setf (text-value load-btn) "working")
                               (setf (background-color load-btn) :yellow)
+                              (setf (advisory-title load-btn) "")
                               (let* ((root (quicklisp:where-is-system sel))
                                      (dir  (directory-namestring (uiop:truename* root))))
                                 (cond (root
                                         (setf (text-value load-btn) "not loaded")
+                                        (setf (advisory-title load-btn) "Click to load")
                                         (setf (background-color load-btn) :tomato)
                                         (setf (current-project app) sel)
                                         (create-clog-tree tree
@@ -302,9 +306,11 @@
                                           (if (member sel already :test #'equalp)
                                               (progn
                                                 (setf (text-value load-btn) "loaded")
+                                                (setf (advisory-title load-btn) "Click to unload")
                                                 (setf (background-color load-btn) load-np))
                                               (progn
                                                 (setf (text-value load-btn) "not loaded")
+                                                (setf (advisory-title load-btn) "Click to load")
                                                 (setf (background-color load-btn) :tomato))))
                                         (setf entry-point (format nil "(~A)"
                                                                   (or (asdf/system:component-entry-point (asdf:find-system sel))
@@ -313,6 +319,7 @@
                                         (setf entry-point "")
                                         (setf (current-project app) nil)
                                         (setf (text-value load-btn) "no project")
+                                        (setf (advisory-title load-btn) "Choose project in drop down")
                                         (setf (background-color load-btn) :load-np))))))))
                    (fill-projects ()
                      (setf (text projects) "")
@@ -326,8 +333,10 @@
                                      (cond ((equalp (text-value load-btn) "loaded")
                                              (asdf:clear-system (value projects))
                                              (setf (text-value load-btn) "not loaded")
+                                             (setf (advisory-title load-btn) "Click to load")
                                              (setf (background-color load-btn) :tomato))
                                            ((equalp (text-value load-btn) "not loaded")
+                                            (setf (advisory-title load-btn) "Click to unload")
                                             (load-proj (value projects))))))
             (set-on-click refresh-btn (lambda (obj)
                                         (declare (ignore obj))