@@ -193,12 +193,12 @@
 ;; Footnotes
 ;;
 ;; Private use:
 (define fn-names null)
 (define fn-definitions (make-hash))
-(define (fn-id x) (string-append x "_fn"))
-(define (fndef-id x) (string-append x "_fndef"))
+(define (fn-id x) (here-id (string-append x "_fn")))
+(define (fndef-id x) (here-id (string-append x "_fndef")))
 
 ;; Provided footnote tag functions:
 (define (html-fn . args)
   (define name (format "~a" (first args)))
   (set! fn-names (cons name fn-names))