     (b/bind
       (apply b/funnel [(id :doc-tf)
                        (b/selection (id :doc-lb) {:multi? true})])
-      (b/transform (fn [[doc-tf doc-lb]] [(config (id :doc-tf) :text)
-                                          (map icon-to-name doc-lb)]))
+      (b/transform (fn [[doc-tf doc-lb]] [(config (id :doc-tf) :text) doc-lb]))
       (b/transform (fn [[fqn doc-lb-sel]]
                      (let [doc-set (set doc-lb-sel)]
                        (if (or (doc-set "Value") (doc-set "All"))

    (config! (id :ns-entries-lbl) :text "0")
    (config! (id :doc-lb)
             :model doc-lb-value-list
             :drag-enabled? true
             :drop-mode :insert
             :transfer-handler
             (seesaw.dnd/default-transfer-handler
               :import [icon-flavor
                        (fn [{:keys [target data drop? drop-location] :as m}]
                          ;; Ignore anything dropped onto the list that is
                          ;; not in the original set of list elements.

            [seesaw.rsyntax]
            [clojure.java.browse]
            [clojure.java.shell]
            [clojure.java.io :as io]
            [clojure.pprint]
            [clojure.set :as set]
            [clojure.string :as str]
