diff --git a/collects/scribble/doc/lang/reader.ss b/collects/scribble/doc/lang/reader.ss
index 9b2f93c0e5..f00fec4966 100644
--- a/collects/scribble/doc/lang/reader.ss
+++ b/collects/scribble/doc/lang/reader.ss
@@ -4,8 +4,8 @@
          get-info)
 
 (define (get-info . args)
-  (lambda (key)
+  (lambda (key defval)
     (case key
       [(color-lexer)
        (dynamic-require 'syntax-color/scribble-lexer 'scribble-inside-lexer)]
-      [else #f])))
+      [else defval])))