new accessors

diff --git a/extra/db/types/types.factor b/extra/db/types/types.factor
index f6d54404de567b9f40b5dc3d14beb3195885e09b..c3480093c5345d0d68494780cfa58385621240b7 100755 (executable)
--- a/extra/db/types/types.factor
+++ b/extra/db/types/types.factor
@@ -143,7 +143,7 @@ HOOK: bind# db ( spec obj -- )
 
 : offset-of-slot ( str obj -- n )
     class superclasses [ "slots" word-prop ] map concat
-    slot-named slot-spec-offset ;
+    slot-named offset>> ;
 
 : get-slot-named ( name obj -- value )
     tuck offset-of-slot slot ;