diff --git a/racket/collects/racket/private/dict.rkt b/racket/collects/racket/private/dict.rkt
index d474cfce02..5e1b9a4423 100644
--- a/racket/collects/racket/private/dict.rkt
+++ b/racket/collects/racket/private/dict.rkt
@@ -288,7 +288,7 @@
       (loop))))
 
 (define (fallback-empty? d)
-  (if (dict-iterate-first d) #t #f))
+  (not (dict-iterate-first d)))
 
 (define (fallback-count d)
   (let loop ([n 0] [i (dict-iterate-first d)])
diff --git a/racket/collects/syntax/private/id-table.rkt b/racket/collects/syntax/private/id-table.rkt
index b079bea6f5..f1d7fb9a42 100644
--- a/racket/collects/syntax/private/id-table.rkt
+++ b/racket/collects/syntax/private/id-table.rkt
@@ -8,7 +8,7 @@
 ;; No-contract version.
 
 (define-struct id-table (hash phase))
-;; where hash maps symbol => (listof (cons identifier value))
+;; where hash maps symbol => (nonempty-listof (cons identifier value))
 ;;       phase is a phase-level (integer or #f)
 
 (define (make-id-table-hash-code identifier->symbol)