Index: crystalize.rkt
==================================================================
--- crystalize.rkt
+++ crystalize.rkt
@@ -122,11 +122,11 @@
   
   (let* ([pubdate (select-from-metas 'published (current-metas))]
          [doc-html    (->html body-txpr #:splice? #t)]
          [title-specified? (not (equal? '() maybe-title))]
          [title-val   (if (not (null? maybe-title)) (car maybe-title) (check-for-poem-title doc))]
-         [title-tx    (make-article-title title-val body-txpr disposition disp-note-id)]
+         [title-tx    (make-article-title pagenode title-val body-txpr disposition disp-note-id)]
          [title-html  (->html title-tx #:splice? #t)]
          [title-plain (tx-strs title-tx)]
          [series-node (series-pagenode)]
          [header      (html$-article-open pagenode title-specified? title-tx pubdate)]
          [footertext (make-article-footertext pagenode series-node disposition disp-note-id (length note-txprs))]
@@ -232,19 +232,21 @@
           (string=? "verse-heading" (attr-ref e2 'class)))
      `(title (span [[class "smallcaps"]] "‘" ,@(get-elements e2) "’"))]
     [else '()]))
 
 ;; Return a title txexpr for the current article, constructing a default if no title text was specified.
-(define (make-article-title supplied-title body-tx disposition disp-note-id)
+(define (make-article-title pagenode supplied-title body-tx disposition disp-note-id)
   (define title-elems
     (cond [(null? supplied-title) (list (default-title (get-elements body-tx)))]
           [else (get-elements supplied-title)]))
   
   (define disposition-part
     (cond [(non-empty-string? disposition)
            (define-values (mark _) (disposition-values disposition))
-           `(span [[class "disposition-mark"]] (a [[href ,(string-append "#" disp-note-id)]] ,mark))]
+           `(a [[class "disposition-mark"] 
+                [href ,(format "~a~a#~a" web-root pagenode disp-note-id)]] 
+               ,mark)]
           [else ""]))
   ;; Returns a txexpr, the tag will be discarded by the template/snippets
   `(title ,@title-elems ,disposition-part))
   
 ;; Convert a bunch of information about an article into some nice English and links.

Index: web-extra/martin.css.pp
==================================================================
--- web-extra/martin.css.pp
+++ web-extra/martin.css.pp
@@ -589,11 +589,11 @@
 
     div.note + div.note {
         margin-top: ◊x-lineheight[2];
     }
 
-    span.disposition-mark {
+    .disposition-mark {
         color: ◊color-xrefmark;
         position: relative;
         top: -0.5em;
         font-size: 0.83em;
     }