                                         (symbol v))]
                         (str n))
                       (fqname (selection (id :ns-lb)) v))]
-            (if (not= fqn "")
+            (when (not= fqn "")
+              ;; update fqn-history-list
+              (let [l (seesaw.meta/get-meta root :fqn-history-list-atom)]
+                (when-not (= (peek @l) fqn)
+                      (swap! l (fn [ll] (conj ll fqn)))))
               fqn)))))
       (b/tee
           (b/property (id :doc-tf) :text)))

      (config! file-menu :items [(id :new-browser-action)])

      (config! edit-menu :items [(id :copy-fqn-action) (id :fqn-from-clipboard-action)
                                 (id :fqn-from-selection-action) (id :open-url-from-selection-action)])

      (config! ns-menu :items [(id :ns-require-btn-action) :separator (id :ns-trace-btn-action) (id :ns-untrace-btn-action)])


      (config! (id :doc-ta) :popup doc-ta-popup)
      (config! doc-ta-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 :fqn-history-back-action) :separator
                                    ;;auto-refresh-browser-cb :separator
                                    (id :zoom-in-action) (id :zoom-out-action)])
                                    
