From e9c79ee85ee61fc580e3d9e0ac70e87d6349ef0e Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Sun, 19 Oct 2008 20:42:27 -0500
Subject: [PATCH] fix directory.

---
 basis/http/server/static/static.factor | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/basis/http/server/static/static.factor b/basis/http/server/static/static.factor
index 3edcfe81cd..208273364c 100644
--- a/basis/http/server/static/static.factor
+++ b/basis/http/server/static/static.factor
@@ -68,8 +68,7 @@ TUPLE: file-responder root hook special allow-listings ;
         [ <h1> file-name escape-string write </h1> ]
         [
             <ul>
-                directory-files 
-                [ <li> file. </li> ] assoc-each
+                directory-files [ <li> file. </li> ] each
             </ul>
         ] bi
     ] simple-page ;