diff --git a/collects/scribble/info.ss b/collects/scribble/info.ss
index e796d2cb..6b190494 100644
--- a/collects/scribble/info.ss
+++ b/collects/scribble/info.ss
@@ -1,6 +1,6 @@
 (module info setup/infotab
   (define name "Scribble")
-  (define blurb '("MzScheme extensions for writing text."))
+  (define blurb '("Text and documention typesetting."))
   (define mzscheme-launcher-names '("scribble"))
-  (define mzscheme-launcher-libraries '("run-scribble.ss"))
+  (define mzscheme-launcher-libraries '("scribble.ss"))
   (define compile-omit-files '("test-reader.ss")))
diff --git a/collects/scribble/run.ss b/collects/scribble/run.ss
index 1001fe14..3647beca 100644
--- a/collects/scribble/run.ss
+++ b/collects/scribble/run.ss
@@ -54,7 +54,7 @@
       [("++info-in") file "load format-specific link information form <file>"
        (current-info-input-files
         (cons file (current-info-input-files)))]]
-     [args file file]))
+     [args (file . another-file) (cons file another-file)]))
 
   (define (build-docs-files files)
     (build-docs (map (lambda (file)
diff --git a/collects/scribble/text-render.ss b/collects/scribble/text-render.ss
index 5d306a84..fce2f4aa 100644
--- a/collects/scribble/text-render.ss
+++ b/collects/scribble/text-render.ss
@@ -18,7 +18,7 @@
                render-flow-element)
 
       (define/override (render-part d ht)
-        (let ([number (collected-info-number (part-collected-info d))])
+        (let ([number (collected-info-number (part-collected-info d ht))])
           (when (or (ormap values number)
                     (part-title-content d))
             (newline))