diff --git a/collects/unstable/gui/slideshow.rkt b/collects/unstable/gui/slideshow.rkt
index f8b725ae1f..01b207c965 100644
--- a/collects/unstable/gui/slideshow.rkt
+++ b/collects/unstable/gui/slideshow.rkt
@@ -184,7 +184,8 @@
                           (syntax (syntax-parameterize
                                     ([reveal (syntax-rules ()
                                                [(reveal n pict)
-                                                (show pict (>= i n))])])
+                                                (show pict (>= i n))]
+                                               [(reveal n) (>= i n)])])
                                     (slide stuff ...))))))
        (with-syntax ([(slides ...) slides])
          #'(begin slides ...)))]))