From 8abda5c6534bc5810bd29d4f96da70d6f269446f Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Mon, 22 Sep 2008 23:45:16 -0500
Subject: [PATCH] Fix RSS feed links

---
 extra/webapps/wiki/wiki.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/extra/webapps/wiki/wiki.factor b/extra/webapps/wiki/wiki.factor
index 420d71d26b..16c51a876b 100644
--- a/extra/webapps/wiki/wiki.factor
+++ b/extra/webapps/wiki/wiki.factor
@@ -19,7 +19,7 @@ db.types db.tuples lcs farkup urls ;
 IN: webapps.wiki
 
 : wiki-url ( rest path -- url )
-    [ "$wiki/" % % "/" % % ] "" make
+    [ "$wiki/" % % "/" % present % ] "" make
     <url> swap >>path ;
 
 : view-url ( title -- url ) "view" wiki-url ;