diff --git a/collects/meta/web/www/code.rkt b/collects/meta/web/www/code.rkt
index 962d805536..e3ddf1aef1 100644
--- a/collects/meta/web/www/code.rkt
+++ b/collects/meta/web/www/code.rkt
@@ -51,7 +51,7 @@
                                                   (let-values ([(p a) (xref-tag->path+anchor
                                                                        xref tag
                                                                        #:external-root-url doc-root)])
-                                                    (format "~a#~a" p a)))
+                                                    (if a (format "~a#~a" p a) p)))
                                             'importid))
                                       'id)
                                   pos
@@ -75,7 +75,8 @@
                                             #:external-root-url doc-root)])
                                (if p
                                    (list (let ([pos (sub1 (syntax-position mp-stx))])
-                                           (list (cons 'modpath (format "~a#~a" p a))
+                                           (list (cons 'modpath
+                                                       (if a (format "~a#~a" p a) p))
                                                  pos
                                                  (+ pos (syntax-span mp-stx))
                                                  priority)))