From 7fc906383c3de0c3c577a47570cbdf762af980bf Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Tue, 14 Jul 2015 16:17:17 -0700
Subject: [PATCH] xkcd: save the comic number with XKCD: syntax.

---
 extra/xkcd/xkcd.factor | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/extra/xkcd/xkcd.factor b/extra/xkcd/xkcd.factor
index c9cfcbad52..459323176e 100644
--- a/extra/xkcd/xkcd.factor
+++ b/extra/xkcd/xkcd.factor
@@ -47,10 +47,10 @@ PRIVATE>
 : latest-xkcd. ( -- )
     "http://xkcd.com" comic. ;
 
-TUPLE: xkcd image ;
+TUPLE: xkcd number image ;
 
 C: <xkcd> xkcd
 
-SYNTAX: XKCD: scan-number xkcd-image <xkcd> suffix! ;
+SYNTAX: XKCD: scan-number dup xkcd-image <xkcd> suffix! ;
 
 M: xkcd pprint* image>> <image-section> add-section ;