@@ -55,22 +55,22 @@
  <a href="/"><header>
  <img src="/web-extra/mark.svg" height="103" class="logo">
  <h1>The Local Yarn</h1>
  </header></a>})
 
-(define (html$-article-open title? title-tx published)
+(define (html$-article-open pagenode title? title-tx published)
   (cond
     [title?
      ◊string-append{<article class="with-title hentry">
       ◊(->html `(h1 [[class "entry-title"]] ,@(get-elements title-tx)))
-      <p class="time"><a href="#" class="rel-bookmark">
+      <p class="time"><a href="/◊(symbol->string pagenode)" class="rel-bookmark">
       <time datetime="◊published" class="published">◊ymd->english[published]</time>
       </a></p>
       <section class="entry-content">}]
     [else
      ◊string-append{<article class="no-title hentry">
-      <h1><a href="#" class="rel-bookmark">
+      <h1><a href="/◊(symbol->string pagenode)" class="rel-bookmark">
       <time datetime="◊published" class="entry-title">◊ymd->english[published]</time>
       </a></h1>
       <section class="entry-content">}]))
 
 (define (html$-article-close footertext)
@@ -78,13 +78,13 @@
          ◊string-append{</section>
           <footer class="article-info"><span class="x">(</span>◊|footertext|<span class="x">)</span></footer>
           </article>}]
         [else "</section></article>"]))
 
-(define (html$-article-listing-short web-path pubdate title)
+(define (html$-article-listing-short pagenode pubdate title)
   ◊string-append{
-  <li><a href="◊web-path">
+  <li><a href="/◊(symbol->string pagenode)">
     <div class="article-list-date caps">◊(ymd->english pubdate)</div>
     <div class="article-list-title">◊|title|</div>
   </a></li>})
 
 (define (html$-page-body-close)