diff --git a/collects/lang/private/beginner-funs.ss b/collects/lang/private/beginner-funs.ss
index 6b3b481bbe..9c44f36b8d 100644
--- a/collects/lang/private/beginner-funs.ss
+++ b/collects/lang/private/beginner-funs.ss
@@ -286,7 +286,7 @@
       (memv (any list -> (union false list))
 	"to determine whether some value is on the list"
 	" (comparing values with eqv?)")
-      ((beginner-member member) (any list -> (union false list))
+      ((beginner-member member) (any list -> boolean)
 	"to determine whether some value is on the list"
 	" (comparing values with equal?)")
       (reverse (list -> list)