()
(let ((latest-issue (fold (lambda (p l)
			    (if (> (page-updated p) (page-updated l)) p l))
			  (car (all-issues))
			  (cdr (all-issues)))))

  `((inject ,(read-page latest-issue "article.sxml"))))