diff --git a/collects/scribble/html-render.ss b/collects/scribble/html-render.ss
index 2932141d..fcef5642 100644
--- a/collects/scribble/html-render.ss
+++ b/collects/scribble/html-render.ss
@@ -43,6 +43,8 @@
                ,@(map (lambda (x) (if (string? x) x (format "~a" x))) body)
                "\n"))))
 
+(define (extra-internal-attribs) null)
+
 (define-runtime-path scribble-css "scribble.css")
 (define-runtime-path scribble-style-css "scribble-style.css")
 (define-runtime-path scribble-prefix-html "scribble-prefix.html")
@@ -359,7 +361,8 @@
          `((a ([href ,(dest->url (resolve-get t ri (car (part-tags t))))]
                [class ,(if (or (eq? t d) (and show-mine? (memq t toc-chain)))
                          "tocviewselflink"
-                         "tocviewlink")])
+                         "tocviewlink")]
+               ,@(extra-internal-attribs))
               ,@(render-content (or (part-title-content t) '("???")) d ri)))
          (format-number (collected-info-number (part-collected-info t ri))
                         '(nbsp))))
@@ -528,7 +531,8 @@
                                            ,(cond
                                               [(part? p) "tocsubseclink"]
                                               [any-parts? "tocsubnonseclink"]
-                                              [else "tocsublink"])])
+                                              [else "tocsublink"])]
+                                          ,@(extra-internal-attribs))
                                          ,@(render-content
                                             (if (part? p)
                                               (or (part-title-content p)
@@ -987,7 +991,8 @@
                         [else
                          ;; Normal link:
                          (dest->url dest)]))
-                     ,@(attribs)]
+                     ,@(attribs)
+                     ,@(extra-internal-attribs)]
                     ,@(if (empty-content? (element-content e))
                           (render-content (strip-aux (dest-title dest)) part ri)
                           (render-content (element-content e) part ri))))