                                (.start (seesaw.meta/get-meta root :auto-refresh-browser-timer))
                                (.stop (seesaw.meta/get-meta root :auto-refresh-browser-timer)))))))
 
+(add-app-action :var-trace-btn-action
+  (action :name "Trace Var"
+          :enabled? false
+          :handler (fn [e] (let [root (to-root e)]
+                             (letfn [(id [kw] (select-id root kw))] 
+                               (swap! (id :var-trace-btn-atom) not))))))
+
 (add-app-action :ns-trace-btn-action
   (action :name "Trace NS"
-          :enabled? true
+          :enabled? false
           :handler (fn [e] (let [root (to-root e)]
                              (letfn [(id [kw] (select-id root kw))]
                                (when-let [ns-str (selection (id :ns-lb))]

      (config! ns-lb-popup :items [(id :new-browser-action) :separator (id :copy-fqn-action) 
                                    (id :fqn-from-clipboard-action) (id :fqn-from-selection-action)
                                    (id :open-url-from-selection-action) :separator
                                    "Load" :separator 
                                    (id :ns-trace-btn-action) (id :ns-untrace-btn-action) 
                                    ;;:separator auto-refresh-browser-cb
                                    ])

      (config! vars-lb-popup :items [(id :new-browser-action) :separator (id :copy-fqn-action) 
                                    (id :fqn-from-clipboard-action) (id :fqn-from-selection-action)
                                    (id :open-url-from-selection-action) :separator
                                    (id :var-trace-btn-action) :separator "Un-Map" "Un-Alias" 
                                    ;;:separator vars-categorized-cb
                                    ;;vars-fqn-listing-cb vars-search-doc-also-cb
                                    ;;:separator auto-refresh-browser-cb
