hn/g: Update athing:link.

hn/g (athing:link): Update function.

1 files changed, 1 insertions, 2 deletions

diff --git a/hn/g b/hn/g
index ef9cb94..8866e31 100755
--- a/hn/g
+++ b/hn/g
@@ -42,8 +42,7 @@
   "Return athing link (HREF DESC)"
   (let* ((s (sxpath "//a[@class=\"storylink\"]"))
          (l (s a)))
-    (list (sxml:attr (car l) 'href)
-          (sxml:text l))))
+    (list (sxml:text l) (sxml:attr (car l) 'href))))
 
 (define (athings:hash h athings:sxml)
   (cond ((empty? athings:sxml) h)