diff --git a/collects/scribble/html-render.ss b/collects/scribble/html-render.ss
index 2566865b..7ea13a56 100644
--- a/collects/scribble/html-render.ss
+++ b/collects/scribble/html-render.ss
@@ -82,7 +82,8 @@
                    (cellspacing "0"))
                   ,@(map (lambda (p)
                            `(tr
-                             (td
+                             (td 
+                              ((align "right"))
                               ,@(format-number (collected-info-number (part-collected-info p))
                                                '((tt nbsp))))
                              (td
diff --git a/collects/scribble/latex-render.ss b/collects/scribble/latex-render.ss
index df2a282e..129f1acd 100644
--- a/collects/scribble/latex-render.ss
+++ b/collects/scribble/latex-render.ss
@@ -46,7 +46,7 @@
         (printf "\\definecolor{OutputColor}{rgb}{0.59,0.00,0.59}\n")
         (define-color "schemecomment" "CommentColor")
         (define-color "schemeparen" "ParenColor")
-        (define-color "schemeinputcol" "ParenColor")
+        (define-color "schemeinputbg" "ParenColor")
         (define-color "schemesymbol" "IdentifierColor")
         (define-color "schemevalue" "ValueColor")
         (define-color "schemevaluelink" "blue")
@@ -65,8 +65,8 @@
         (printf "\\newcommand{\\smaller}[1]{{\\footnotesize #1}}\n")
         (printf "\\definecolor{PaleBlue}{rgb}{0.90,0.90,1.0}\n")
         (printf "\\definecolor{LightGray}{rgb}{0.90,0.90,0.90}\n")
-        (printf "\\newcommand{\\schemeinput}[1]{\\colorbox{LightGray}{\\hspace{-0.5ex}\\schemeinputcol{#1}\\hspace{-0.5ex}}}\n")
-        (printf "\\newcommand{\\highlighted}[1]{\\colorbox{PaleBlue}{\\hspace{-0.5ex}\\schemeinputcol{#1}\\hspace{-0.5ex}}}\n")
+        (printf "\\newcommand{\\schemeinput}[1]{\\colorbox{LightGray}{\\hspace{-0.5ex}\\schemeinputbg{#1}\\hspace{-0.5ex}}}\n")
+        (printf "\\newcommand{\\highlighted}[1]{\\colorbox{PaleBlue}{\\hspace{-0.5ex}\\schemeinputbg{#1}\\hspace{-0.5ex}}}\n")
         (printf "\\newcommand{\\techlink}[1]{#1}\n")
         (printf "\\newcommand{\\imageleft}[1]{} % drop it\n")
         (printf "\\begin{document}\n")