diff --git a/collects/scribble/base/lang/reader.ss b/collects/scribble/base/lang/reader.ss
index 9152de72..8f495a8e 100644
--- a/collects/scribble/base/lang/reader.ss
+++ b/collects/scribble/base/lang/reader.ss
@@ -6,13 +6,13 @@ scribble/base/lang
 #:read-syntax scribble:read-syntax-inside
 #:whole-body-readers? #t
 #:wrapper1 (lambda (t) (list* 'doc 'values '() (t)))
-#:info (lambda (key default)
+#:info (lambda (key defval default)
          (case key
            [(color-lexer)
             (dynamic-require 'syntax-color/scribble-lexer 'scribble-inside-lexer)]
            [(drscheme:toolbar-buttons)
             (dynamic-require 'scribble/drscheme-buttons 'drscheme-buttons)]
-           [else (default key)]))
+           [else (default key defval)]))
 
 (require (prefix-in scribble: "../../reader.ss"))
 
diff --git a/collects/scribble/manual/lang/reader.ss b/collects/scribble/manual/lang/reader.ss
index 2407939f..6e55aade 100644
--- a/collects/scribble/manual/lang/reader.ss
+++ b/collects/scribble/manual/lang/reader.ss
@@ -6,10 +6,10 @@ scribble/manual/lang
 #:read-syntax scribble:read-syntax-inside
 #:whole-body-readers? #t
 #:wrapper1 (lambda (t) (cons 'doc (t)))
-#:info (lambda (key default)
+#:info (lambda (key defval default)
          (case key
            [(color-lexer)
             (dynamic-require 'syntax-color/scribble-lexer 'scribble-inside-lexer)]
-           [else (default key)]))
+           [else (default defval key)]))
 
 (require (prefix-in scribble: "../../reader.ss"))
diff --git a/collects/scribble/sigplan/lang/reader.ss b/collects/scribble/sigplan/lang/reader.ss
index f67d928a..efe6bc9a 100644
--- a/collects/scribble/sigplan/lang/reader.ss
+++ b/collects/scribble/sigplan/lang/reader.ss
@@ -6,10 +6,10 @@ scribble/sigplan/lang
 #:read-syntax scribble:read-syntax-inside
 #:whole-body-readers? #t
 #:wrapper1 (lambda (t) (cons 'doc (t)))
-#:info (lambda (key default)
+#:info (lambda (key defval default)
          (case key
            [(color-lexer)
             (dynamic-require 'syntax-color/scribble-lexer 'scribble-inside-lexer)]
-           [else (default key)]))
+           [else (default defval key)]))
 
 (require (prefix-in scribble: "../../reader.ss"))