xkcd: Everybody stand back. I know regular expressions.

diff --git a/extra/xkcd/xkcd.factor b/extra/xkcd/xkcd.factor
index 162945809ad67d4ced6f9cc6c1ed118b5a7cdbd2..f9a5f06b6937b28b893c811ef365fa289101dd94 100644 (file)
--- 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. ;