From c477757fa0805517a1f2b2950479cd60af2e6c14 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Sat, 16 Jun 2018 19:26:47 -0500
Subject: [PATCH] xkcd: Everybody stand back. I know regular expressions.

---
 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 162945809a..f9a5f06b69 100644
--- a/extra/xkcd/xkcd.factor
+++ b/extra/xkcd/xkcd.factor
@@ -13,8 +13,8 @@ IN: xkcd
 
 : comic-image ( url -- image )
     http-get nip
-    R/ http:\\/\\/imgs\.xkcd\.com\\/comics\\/[^\.]+\.(png|jpg)/
-    first-match >string load-http-image ;
+    R/ \/\/imgs\.xkcd\.com\\/comics\\/[^\.]+\.(png|jpg)/
+    first-match >string "http:" prepend load-http-image ;
 
 : comic-image. ( url -- )
     comic-image image. ;