              :callback config-tool
              :options {:recursive true}}])))
 
-(defn get-toolinfo [toolname]
+
+(defn get-toolinfo [toolname eid]
   (assert (@tool-configs toolname)
           (format "No such tool %s" toolname))
-  (merge {:inputOption "" :options "" :args ""}
-         (@tool-configs toolname)))
+  (let [args ((cmn/get-exp-info eid :cmdsargs) toolname {})]
+    (merge {:inputOption "" :options "" :args "" :argcard {}}
+           (@tool-configs toolname)
+           {:args args})))
 
 
 ;;; ------------------------------------------------------------------------;;;

        (send-end-msg ws {:op :validate :payload vmsg})
        (let [{:keys [cmd eid template]} params
              dt (date-time-stg)
              resmap (actions/action cmd eid params get-toolinfo template)
              resfut (resmap :fut)
              jobdb-info (or (get-jdb [user eid phase]) [])]

      (send-end-msg ws {:op :validate :payload vmsg})
      (let [{:keys [cmd eid template]} params
            dt (date-time-stg)
            get-toolinfo #(get-toolinfo % eid)
            resmap (actions/action cmd eid params get-toolinfo template)
            resfut (resmap :fut)
            jobdb-info (or (get-jdb [user eid action]) [])]
