new accessors

diff --git a/extra/db/tuples/tuples.factor b/extra/db/tuples/tuples.factor
index e02e21cbe6edfd5f3c4327bb782b7083ac9934a3..71cf878d2f75d091297fb5c90b9d6ca870037f55 100755 (executable)
--- a/extra/db/tuples/tuples.factor
+++ b/extra/db/tuples/tuples.factor
@@ -127,12 +127,12 @@ M: retryable execute-statement* ( statement type -- )
 
 : insert-db-assigned-statement ( tuple -- )
     dup class
-    db get db-insert-statements [ <insert-db-assigned-statement> ] cache
+    db get insert-statements>> [ <insert-db-assigned-statement> ] cache
     [ bind-tuple ] 2keep insert-tuple* ;
 
 : insert-user-assigned-statement ( tuple -- )
     dup class
-    db get db-insert-statements [ <insert-user-assigned-statement> ] cache
+    db get insert-statements>> [ <insert-user-assigned-statement> ] cache
     [ bind-tuple ] keep execute-statement ;
 
 : insert-tuple ( tuple -- )