From 11fd4788db4fed0886c0840093910d33b402dc8d Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Sat, 29 Nov 2008 15:19:09 -0600
Subject: [PATCH] fix compile error

---
 basis/db/queries/queries.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/basis/db/queries/queries.factor b/basis/db/queries/queries.factor
index 6b1067baf0..b181aab23b 100644
--- a/basis/db/queries/queries.factor
+++ b/basis/db/queries/queries.factor
@@ -201,7 +201,7 @@ M: db <count-statement> ( query -- statement )
 
 : create-index ( index-name table-name columns -- )
     [
-        [ [ "create index " % % ] dip " on " % % ] 2dip "(" %
+        [ [ "create index " % % ] dip " on " % % ] dip "(" %
         "," join % ")" %
     ] "" make sql-command ;