diff --git a/pkgs/racket-pkgs/racket-doc/scribblings/reference/dicts.scrbl b/pkgs/racket-pkgs/racket-doc/scribblings/reference/dicts.scrbl
index f2d9ccc753..692a08a141 100644
--- a/pkgs/racket-pkgs/racket-doc/scribblings/reference/dicts.scrbl
+++ b/pkgs/racket-pkgs/racket-doc/scribblings/reference/dicts.scrbl
@@ -143,9 +143,8 @@ be used to implement any of the methods documented as
    (define (dict-remove dict key)
      (define al (alist-v dict))
      (alist (remove* (filter (λ (p) (equal? (car p) key)) al) al)))
-   (define (dict-count dict #:default [x #f])
-     (or x
-         (length (remove-duplicates (alist-v dict) #:key car))))]) (code:comment "etc. other methods")
+   (define (dict-count dict)
+     (length (remove-duplicates (alist-v dict) #:key car)))]) (code:comment "etc. other methods")
 
   (define d1 (alist '((1 . a) (2 . b))))
   (dict? d1)
diff --git a/pkgs/racket-pkgs/racket-test/tests/generic/alist.rkt b/pkgs/racket-pkgs/racket-test/tests/generic/alist.rkt
index d97b8f9921..070e63bff2 100644
--- a/pkgs/racket-pkgs/racket-test/tests/generic/alist.rkt
+++ b/pkgs/racket-pkgs/racket-test/tests/generic/alist.rkt
@@ -13,9 +13,8 @@
    (define (dict-remove dict key)
      (define al (alist-v dict))
      (remove* (assoc key al) al))
-   (define (dict-count dict #:default [x #f])
-     (or x
-         (length (remove-duplicates (alist-v dict) #:key car))))])
+   (define (dict-count dict)
+     (length (remove-duplicates (alist-v dict) #:key car)))])
 
 
 (module+ test
diff --git a/pkgs/racket-pkgs/racket-test/tests/generic/struct-form.rkt b/pkgs/racket-pkgs/racket-test/tests/generic/struct-form.rkt
index 72a317fd42..ca36a575f5 100644
--- a/pkgs/racket-pkgs/racket-test/tests/generic/struct-form.rkt
+++ b/pkgs/racket-pkgs/racket-test/tests/generic/struct-form.rkt
@@ -13,9 +13,8 @@
    (define (dict-remove dict key)
      (define al (alist-v dict))
      (remove* (assoc key al) al))
-   (define (dict-count dict #:default [x #f])
-     (or x
-         (length (remove-duplicates (alist-v dict) #:key car))))])
+   (define (dict-count dict)
+     (length (remove-duplicates (alist-v dict) #:key car)))])
 
 
 (module+ test