diff --git a/collects/scribblings/guide/pattern-macros.scrbl b/collects/scribblings/guide/pattern-macros.scrbl
index 32e9247a11..4a967768fc 100644
--- a/collects/scribblings/guide/pattern-macros.scrbl
+++ b/collects/scribblings/guide/pattern-macros.scrbl
@@ -119,7 +119,7 @@ the expansion is
 @racketblock[
 (let ([set!_1 5]
       [other 6])
-  (let ([tmp_1 tmp])
+  (let ([tmp_1 set!_1])
     (set! set!_1 other)
     (set! other tmp_1))
   (list set!_1 other))