diff --git a/collects/scribblings/reference/reader-example.rkt b/collects/scribblings/reference/reader-example.rkt
index 32b96046fe..b87ad41c33 100644
--- a/collects/scribblings/reference/reader-example.rkt
+++ b/collects/scribblings/reference/reader-example.rkt
@@ -61,7 +61,7 @@
                                                      [(number? v)
                                                       (let loop ([v v])
                                                         (if (inexact? v)
-                                                            `(inexact->exact ,(loop (inexact->exact v)))
+                                                            `(exact->inexact ,(loop (inexact->exact v)))
                                                             (cond
                                                              [(integer? v) v]
                                                              [(real? v) `(/ ,(numerator v)