From d0edbccf67335762fcbca7b24d2feeba591787e3 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Mon, 2 Jun 2008 21:59:23 -0500
Subject: [PATCH] Fix default main responder

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

diff --git a/extra/http/server/server.factor b/extra/http/server/server.factor
index 02424ef974..756a0de0ff 100755
--- a/extra/http/server/server.factor
+++ b/extra/http/server/server.factor
@@ -22,7 +22,7 @@ C: <trivial-responder> trivial-responder
 
 M: trivial-responder call-responder* nip response>> clone ;
 
-main-responder global [ <404> <trivial-responder> get-global or ] change-at
+main-responder global [ <404> <trivial-responder> or ] change-at
 
 : invert-slice ( slice -- slice' )
     dup slice? [ [ seq>> ] [ from>> ] bi head-slice ] [ drop { } ] if ;