diff --git a/conditions/restart-case.lsp b/conditions/restart-case.lsp
index b11424b9d5f59881660d973896b9720ed5028f38..ff4f3c113a88eb335a3e43f96c110c302359a171 100644
--- a/conditions/restart-case.lsp
+++ b/conditions/restart-case.lsp
@@ -308,3 +308,11 @@
             (declare (special x))
             y))))
   :good)
+
+(deftest restart-case.37
+    (progn
+      (define-condition x () ((y :initarg :y)))
+      (handler-bind ((x (lambda (c) (slot-value c 'y))))
+        (restart-case
+            (signal 'x :y 1))))
+  nil)