X-Git-Url: http://git.kpe.io/?p=ptester.git;a=blobdiff_plain;f=src.lisp;fp=src.lisp;h=a7d4d8d7cba3f7fd16726b77c9724cf9bfe2b0ff;hp=984adb6d1fbc3e1df9bb97e52bd87c2c45481b57;hb=fe69fde54f4bce00ce577feb918796c293fc7253;hpb=332ed2f9f41fbe329f500089fa1b593bdcfa2d93

diff --git a/src.lisp b/src.lisp
index 984adb6..a7d4d8d 100644
--- a/src.lisp
+++ b/src.lisp
@@ -145,7 +145,7 @@ taken as a test failure unless test-error is being used.")
          (condition (condition)
            (if* (and (null ,g-catch-breaks)
                      (typep condition 'simple-break))
-              then (break condition)
+              then (break "~&Condition: ~a~%" condition)
             elseif ,g-announce
               then (format *error-output* "~&Condition type: ~a~%"
                            (class-of condition))