From ffecedf9dece8ee5b0df558a20e06b834ba727c4 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Thu, 4 Dec 2008 02:21:36 -0600
Subject: [PATCH] Fix db.postgresql load error

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

diff --git a/basis/db/postgresql/postgresql.factor b/basis/db/postgresql/postgresql.factor
index 82d96c4af1..90a875b8ff 100644
--- a/basis/db/postgresql/postgresql.factor
+++ b/basis/db/postgresql/postgresql.factor
@@ -267,7 +267,7 @@ ERROR: no-compound-found string object ;
 M: postgresql-db compound ( string object -- string' )
     over {
         { "default" [ first number>string " " glue ] }
-        { "varchar" [ first number>string paren append ] }
+        { "varchar" [ first number>string "(" ")" surround append ] }
         { "references" [ >reference-string ] }
         [ drop no-compound-found ]
     } case ;