diff --git a/pkgs/racket-doc/scribblings/style/constructs.scrbl b/pkgs/racket-doc/scribblings/style/constructs.scrbl
index 6b5d571d53..d88a1b6b5b 100644
--- a/pkgs/racket-doc/scribblings/style/constructs.scrbl
+++ b/pkgs/racket-doc/scribblings/style/constructs.scrbl
@@ -119,7 +119,7 @@ racket
 (cond
   [(empty? l) #false]
   [else
-   (define f (fir l))
+   (define f (first l))
    (define r (rest l))
    (if (discounted? f)
        (rate f)
@@ -131,7 +131,7 @@ racket
 
 (if (empty? l)
     #false
-    (let ([f (fir l)]
+    (let ([f (first l)]
 	  [r (rest l)])
       (if (discounted? f)
           (rate f)