diff --git a/collects/scribble/basic.ss b/collects/scribble/basic.ss
index 2da50293..105efef0 100644
--- a/collects/scribble/basic.ss
+++ b/collects/scribble/basic.ss
@@ -237,8 +237,8 @@
     (lambda (renderer sec ri)
       (define l null)
       (define line-break (if (send renderer index-manual-newlines?)
-                             (make-element 'newline '("\n"))
-                             ""))
+                           (make-element 'newline '("\n"))
+                           ""))
       (define alpha-starts (make-hasheq))
       (hash-for-each
        (let ([parent (collected-info-parent (part-collected-info sec ri))])
diff --git a/collects/scribble/html-render.ss b/collects/scribble/html-render.ss
index ecc242f2..c1345c33 100644
--- a/collects/scribble/html-render.ss
+++ b/collects/scribble/html-render.ss
@@ -105,6 +105,7 @@
 
 (define-serializable-struct literal-anchor (string))
 
+#; ; no need for these index-local searches
 #reader scribble/reader (begin ; easier to format
 
 (define search-script
@@ -607,6 +608,7 @@
                                 (make-element "nonavigation" index-content)
                                 (make-link-element
                                  #f index-content (car (part-tags index)))))
+                    #; ; no need for these index-local searches
                     ,@(if (eq? d index)
                         null
                         `((small nbsp
@@ -909,7 +911,8 @@
                                null))
                           ,@(render-flow d part ri #f))
                      (loop (cdr ds) (cdr as) (cdr vas))))]))))
-      `(,@(if index? `(,search-script ,search-field) '())
+      `(#; ; no need for these index-local searches
+        ,@(if index? `(,search-script ,search-field) '())
         (table ([cellspacing "0"]
                 ,@(if need-inline?
                     '([style "display: inline; vertical-align: top;"])