diff --git a/collects/scribblings/guide/contracts-examples/1b.rkt b/collects/scribblings/guide/contracts-examples/1b.rkt
index 2f744ebd13..97877eb3a6 100644
--- a/collects/scribblings/guide/contracts-examples/1b.rkt
+++ b/collects/scribblings/guide/contracts-examples/1b.rkt
@@ -13,7 +13,6 @@
   (if (pair? x) (car x) x))
 
 (define (active? c)
-  (define f (find c))
   (pair? (find c)))
 
 (define not-active? (compose not active? basic-customer-id))