                     (selection! (id :vars-lb) name1))
                   (do
                     (selection! (id :ns-lb) (str *ns*))
-                    (selection! (id :doc-cbx) "Doc"))))))
-            (refresh-clj-ns-browser root)
+                    (selection! (id :doc-cbx) "Doc")))
+                (ensure-selection-visible (id :ns-lb))
+                (ensure-selection-visible (id :vars-lb)))))
+          (refresh-clj-ns-browser root)
           fqn)))))
 

              (selection! (id :ns-cbx) "loaded")
              (selection! (id :ns-lb) ns1)
              (selection! (id :vars-cbx) "publics")
              (selection! (id :vars-lb) name1))
            (if (find-ns (symbol name1))
              ;; should be namespace
              (invoke-soon
                (selection! (id :ns-lb) name1)
                (selection! (id :doc-cbx) "Doc"))
              ;; else must be special-form or class
              (invoke-soon
                (if (special-form? fqn)

    (b/bind
      (b/selection (id :vars-lb))
      (b/transform (fn [v]
        (if v
          (let [fqn (fqname (selection (id :ns-lb)) v)]
            (if (and fqn (not= fqn ""))
