From 5ec2b409577d198922b8ebe9acd3027329bf8eb4 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Wed, 9 Apr 2008 21:23:25 +0000
Subject: [PATCH] fix coercion to r6rs &undefined condition

svn: r9226
---
 collects/rnrs/conditions-6.ss | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/rnrs/conditions-6.ss b/collects/rnrs/conditions-6.ss
index a25ed3ac02..8322e13893 100644
--- a/collects/rnrs/conditions-6.ss
+++ b/collects/rnrs/conditions-6.ss
@@ -133,7 +133,7 @@
                       #f))))
          null)
      (if (exn:fail:contract:variable? c)
-         (make-undefined-violation)
+         (list (make-undefined-violation))
          null))]
    [else (raise-type-error 'simple-conditions
                            "condition"