diff --git a/collects/scribble/base-render.ss b/collects/scribble/base-render.ss
index 1b29a0bc..a5d33c18 100644
--- a/collects/scribble/base-render.ss
+++ b/collects/scribble/base-render.ss
@@ -292,7 +292,8 @@
 
       (define/public (render ds fns ri)
         (map (lambda (d fn)
-               (printf " [Output to ~a]\n" fn)
+               (when #f
+                 (printf " [Output to ~a]\n" fn))
                (with-output-to-file fn
                  #:exists 'truncate/replace
                  (lambda ()
diff --git a/collects/scribble/manual-struct.ss b/collects/scribble/manual-struct.ss
index 6722bafd..eea0b8a8 100644
--- a/collects/scribble/manual-struct.ss
+++ b/collects/scribble/manual-struct.ss
@@ -6,7 +6,8 @@
 (provide-structs
  [exported-index-desc ([name symbol?]
                         [from-libs (listof module-path?)])]
- [(method-index-desc exported-index-desc) ([method-name symbol?])]
+ [(method-index-desc exported-index-desc) ([method-name symbol?]
+                                           [class-tag tag?])]
  [(procedure-index-desc exported-index-desc) ()]
  [(thing-index-desc exported-index-desc) ()]
  [(struct-index-desc exported-index-desc) ()]
diff --git a/collects/scribble/manual.ss b/collects/scribble/manual.ss
index 35d480bd..fb29cedb 100644
--- a/collects/scribble/manual.ss
+++ b/collects/scribble/manual.ss
@@ -713,7 +713,9 @@
                                                                                                      (make-method-index-desc 
                                                                                                       (syntax-e within-id)
                                                                                                       libs
-                                                                                                      mname)))))
+                                                                                                      mname
+                                                                                                      (register-scheme-definition 
+                                                                                                       within-id #t))))))
                                                                         tag)
                                                                        (car content)))
                                                                  (*method (car prototype) within-id))))]