Fix abuse of spread in gdbm

diff --git a/extra/gdbm/gdbm.factor b/extra/gdbm/gdbm.factor
index 2fe758f539c4c35a92e7018cd5d433492ab1ef9a..9e620fa793e354518eb2f089f108015e32057980 100644 (file)
--- 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 ;