diff --git a/extra/xml/data/data.factor b/extra/xml/data/data.factor
index 56e34b7db2..1850171537 100644
--- a/extra/xml/data/data.factor
+++ b/extra/xml/data/data.factor
@@ -65,6 +65,8 @@ M: attrs set-at
 
 M: attrs assoc-size length ;
 M: attrs new-assoc drop V{ } new <attrs> ;
+M: attrs assoc-find >r delegate r> assoc-find ;
+M: attrs >alist delegate >alist ;
 
 : >attrs ( assoc -- attrs )
     V{ } assoc-clone-like