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 swap >>path ; : view-url ( title -- url ) "view" wiki-url ;