diff --git a/src/clos/conditions.lsp b/src/clos/conditions.lsp
index d8ccf1a66..7139cc8b2 100644
--- a/src/clos/conditions.lsp
+++ b/src/clos/conditions.lsp
@@ -180,7 +180,9 @@
                  (name (first expression2)))
             (case name
               (SIGNAL
-               (setq condition-form (second expression2)))
+               (setq condition-form `(coerce-to-condition ,(second expression2)
+                                      (list ,@ (cddr expression2))
+                                      'simple-condition 'signal)))
               (ERROR
                (setq condition-form `(coerce-to-condition ,(second expression2)
                                       (list ,@(cddr expression2))