     (if *log-error* (log/error e "action line parse error"))
     (if (instance? java.io.FileNotFoundException e)
       (binding [*out* *err*]
-        (println (format "%s: io error: %s" (program-name) msg)))
+        (println (format "%sio error: %s" (program-fmt) msg)))
       (binding [*out* *err*]
-        (println (format "%s: error: %s"
-                         (program-name)
+        (println (format "%serror: %s"
+                         (program-fmt)
                          (if ex-data
                            (.getMessage e)
                            (.toString e)))))))

  singleton then only print one in the common usage format."
  [errors]
  (if (= (count errors) 1)
    (format "%s: %s" (program-name) (first errors))
    (str "The following errors occurred while parsing your action:\n\n"
         (s/join \newline errors))))


  ([usage-format]
   (fn [action-names]
     (->> (format usage-format
                  (or (program-name) "")
                  (if-not action-names
                    ""
                    (->> action-names
