Index: /trunk/tests/ansi-tests/ccl.lsp
===================================================================
--- /trunk/tests/ansi-tests/ccl.lsp	(revision 14888)
+++ /trunk/tests/ansi-tests/ccl.lsp	(revision 14889)
@@ -1802,2 +1802,12 @@
     (eql 111 (aref m 2 3 4)))
   t)
+
+(deftest ccl.format-goto-error
+    (handler-case
+	(format nil "This is an error ~*~a")
+      (error (c)
+	(handler-case (progn
+			(ccl::report-condition c (make-broadcast-stream))
+			:win)
+	  (error (cc) :error))))
+  :win)