diff --git a/collects/racket/private/logger.rkt b/collects/racket/private/logger.rkt
index a43b36ded0..8f9a1427ec 100644
--- a/collects/racket/private/logger.rkt
+++ b/collects/racket/private/logger.rkt
@@ -45,8 +45,8 @@
                        [log-X-warning (mk 'warning)]
                        [log-X-info (mk 'info)]
                        [log-X-debug (mk 'debug)]
-                       [current-X-logger 
-                        (datum->syntax X (string->symbol (format "current-~a-logger" (syntax-e X))) X)]
+                       [X-logger 
+                        (datum->syntax X (string->symbol (format "~a-logger" (syntax-e X))) X)]
                        [X X])
            #'(begin
                (define X-logger (make-logger 'X (current-logger)))
diff --git a/collects/scribblings/reference/logging.scrbl b/collects/scribblings/reference/logging.scrbl
index 961341bc9a..1257bda7f0 100644
--- a/collects/scribblings/reference/logging.scrbl
+++ b/collects/scribblings/reference/logging.scrbl
@@ -105,9 +105,11 @@ Defines @racketkeywordfont{log-}@racket[id]@racketkeywordfont{-fatal},
 @racketkeywordfont{log-}@racket[id]@racketkeywordfont{-info}, and
 @racketkeywordfont{log-}@racket[id]@racketkeywordfont{-debug} as forms
 like @racket[log-fatal], @racket[log-error],@racket[log-warning],
-@racket[log-info], and @racket[log-debug]. The new forms use a logger named
-@racket['@#,racket[id]] that is a child of @racket[current-logger],
-instead of using @racket[(current-logger)] directly. The new logger is
+@racket[log-info], and @racket[log-debug]. The @racket[define-logger]
+form also defines @racket[id]@racketidfont{-logger}, which is a logger named
+@racket['@#,racket[id]] that is a child of @racket[(current-logger)];
+the @racketkeywordfont{log-}@racket[id]@racketkeywordfont{-fatal},
+@|etc| forms use this new logger. The new logger is
 created when @racket[define-logger] is evaluated.}
 
 @; ----------------------------------------
diff --git a/collects/tests/racket/logger.rktl b/collects/tests/racket/logger.rktl
index 5e8038e6e1..64c4bf82c4 100644
--- a/collects/tests/racket/logger.rktl
+++ b/collects/tests/racket/logger.rktl
@@ -78,6 +78,7 @@
 
 (let ()
   (define-logger test)
+  (test #t logger? test-logger)
   (define r (make-log-receiver (current-logger) 'warning 'test))
   (log-test-debug (/ 0))
   (log-test-debug "debug")