From eb76f9fbc2f6d2972bdaecb8f4df95c62d1d39bf Mon Sep 17 00:00:00 2001
From: John Clements <clements@racket-lang.org>
Date: Wed, 20 Oct 2010 12:03:59 -0700
Subject: [PATCH] frightening bug, #%if was capturing everything (cherry picked
 from commit 34fbc9a06f2a9b53fa4095e88841e283ee0147c5)

---
 collects/stepper/private/annotate.rkt | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/stepper/private/annotate.rkt b/collects/stepper/private/annotate.rkt
index cf3e89998c..6c61372cd9 100644
--- a/collects/stepper/private/annotate.rkt
+++ b/collects/stepper/private/annotate.rkt
@@ -150,7 +150,7 @@
                  stx
                  #f
                  ; cond :
-                 [(#%if test (#%let () then) else-stx)
+                 [(if test (let-values () then) else-stx)
                   (let ([origin (syntax-property stx 'origin)]
                         [rebuild-if
                          (lambda (new-cond-test)