From 4994483be4dff785cef7fbb82ecfe940e14f071f Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Sun, 2 Oct 2011 21:53:32 -0700
Subject: [PATCH] Fix abuse of spread in gdbm

---
 extra/gdbm/gdbm.factor | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/extra/gdbm/gdbm.factor b/extra/gdbm/gdbm.factor
index 2fe758f539..9e620fa793 100644
--- a/extra/gdbm/gdbm.factor
+++ b/extra/gdbm/gdbm.factor
@@ -76,7 +76,8 @@ DESTRUCTOR: gdbm-close
 
 : gdbm-store ( key content flag -- )
     [
-        { [ dbf ] [ object>datum ] [ object>datum ] [ ] } spread
+        [ dbf ] 3dip
+        [ object>datum ] [ object>datum ] [ ] tri*
         gdbm_store check-error
     ] with-destructors ;