       (instance? Exception arg)
       ((:print-exception-trace opts))) (strace/print-cause-trace arg)
     (instance? Exception arg) (utils/println-err (.getMessage #^Exception arg))
-    :default (utils/println-err (str arg))))
+    :else (utils/println-err (str arg))))
 
 (def cli-default-options
   {:allow-eval false

                  [(StringsCompleter. #^java.util.Collection (conj (mapv name (cmd-aliases k)) (name k)))
                   (proxy [Completer] []
                     (complete [buffer cursor #^java.util.List candidates]
                       (if (not (nil? fn-args))
                         (.add candidates (str "Arguments: " fn-args)))
                       (if (not (nil? completion-hint))
                         (.add candidates (str completion-hint)))
                       (if (not (and (not (nil? fn-args)) (not (nil? completion-hint))))
                         (.add candidates ""))
                       0))])))
            v)))

          (print (str "\u001B[" (- current-height alternate-height 3) ";1H> " line))
          (print "\u001B[u")
          (flush))
        (when (not (nil? file-history))
          (.flush file-history))
        (cond
          (and (not (nil? line))
