diff --git a/collects/typed-racket/base-env/base-env.rkt b/collects/typed-racket/base-env/base-env.rkt
index 85b7be72..ec0f00dd 100644
--- a/collects/typed-racket/base-env/base-env.rkt
+++ b/collects/typed-racket/base-env/base-env.rkt
@@ -2108,7 +2108,8 @@
 [logger-name (-> -Logger (-opt Sym))]
 [current-logger (-Param -Logger -Logger)]
 
-[log-message (-> -Logger -Log-Level -String Univ -Void)]
+[log-message (Un (-> -Logger -Log-Level -String Univ -Void)
+                 (-> -Logger -Log-Level (Un (-val #f) -Symbol) -String Univ -Void))]
 [log-level? (-> -Logger -Log-Level  B)]
 
 [log-receiver? (make-pred-ty -Log-Receiver)]
diff --git a/collects/unstable/logging.rkt b/collects/unstable/logging.rkt
index b1fbbf52..f8419aa1 100644
--- a/collects/unstable/logging.rkt
+++ b/collects/unstable/logging.rkt
@@ -4,7 +4,7 @@
 
 (define level/c (or/c 'fatal 'error 'warning 'info 'debug))
 (define log-spec/c (listof (or/c symbol? #f)))
-(define log-message/c (vector/c level/c string? any/c))
+(define log-message/c (vector/c level/c string? any/c (or/c symbol? #f)))
 
 ;; helper used below
 (define (receiver-thread receiver stop-chan intercept)