From e0cd1270624b1d3f9e6e4029b16469ec477f16f1 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Sat, 30 Aug 2008 12:42:59 -0500
Subject: [PATCH] new accessors

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

diff --git a/extra/db/types/types.factor b/extra/db/types/types.factor
index f6d54404de..c3480093c5 100755
--- 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 ;