using method word to lookup up method

diff --git a/mongodb/tuple/state/state.factor b/mongodb/tuple/state/state.factor
index ace7b16c8f1b383c33af1b634301c6882618fccd..b358cd8e38a5f300c06b5b5671971293383ee570 100644 (file)
--- a/mongodb/tuple/state/state.factor
+++ b/mongodb/tuple/state/state.factor
@@ -1,5 +1,5 @@
 USING: classes kernel accessors sequences fry assocs mongodb.tuple.collection
-advice words classes.tuple slots ;
+advice words classes.tuple slots generic ;
 
 IN: mongodb.tuple.state
 
@@ -56,8 +56,7 @@ PRIVATE>
    [ [ [ dup mark-dirty ] MDB_DIRTY_ADVICE ] dip advise-after ] if ;
 
 : (annotate-writer) ( class name -- )
-   writer-word "methods" word-prop at
-   [ create-advice ] when* ;
+   writer-word method [ create-advice ] when* ;
 
 PRIVATE>