   (when (and (instance? ExceptionInfo error)
              (= could-not-eval-expr (ex-message error)))
     (when-let [cause (ex-cause error)]
-      (when (is-reader-or-analysis? cause)
+      (when (reader-or-analysis? cause)
         (when-let [column (:column (ex-data cause))]
           (form-indicator column current-ns))))))
 

         (ex-cause error))
    ex-cause))

(defn- is-reader-or-analysis?
  "Indicates if an exception is a reader or analysis exception."
  [e]
  (and (instance? ExceptionInfo e)

  ([error include-stacktrace? printed-message]
   (print-error-column-indicator error)
   (let [error (skip-cljsjs-eval-error error)
         roa? (reader-or-analysis? error)
         include-stacktrace? (or (= include-stacktrace? :pst)
                                 (and include-stacktrace?
                                      (not roa?)))
