From c01f3049e4b4ef8ec8a2ee66f5732e60d9010c13 Mon Sep 17 00:00:00 2001
From: Abdulaziz Ghuloum <aghuloum@cs.indiana.edu>
Date: Tue, 25 Mar 2008 21:23:23 -0400
Subject: [PATCH] Fixes bug 206842: syntax tracing not working by default when
 syntax-case fenders fail

---
 scheme/psyntax.expander.ss | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/scheme/psyntax.expander.ss b/scheme/psyntax.expander.ss
index 9dd1d4b..9b8d548 100644
--- a/scheme/psyntax.expander.ss
+++ b/scheme/psyntax.expander.ss
@@ -3735,7 +3735,8 @@
           (make-syntax-violation 
             (syntax->datum x)
             #f)
-          (extract-position-condition x)))))
+          (extract-position-condition x)
+          (extract-trace x)))))
 
   (define (extract-trace x)
     (define-condition-type &trace &condition