(in-package :cl-user)

(defmethod report-java-exception ((class-name (eql '|org.semanticweb.owl.io.ParserException|)) exception)
  (let ((exception (#"getCause" exception)))
    (with-output-to-string (s)
      (let ((writer (new 'stringwriter)))
	(#"printStackTrace" exception (new 'printwriter writer))
	(write-string (#"replaceFirst" (#"toString" writer) "(?s)\\s*at sun.reflect.*" "") s))
      )))