From 6b3db4f05d33e19c73e102c83b3ab9d79f2a18ae Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@factorcode.org>
Date: Mon, 26 Nov 2007 18:20:10 -0500
Subject: [PATCH] Fix infinite recursion

---
 extra/xml/data/data.factor | 2 ++
 1 file changed, 2 insertions(+)

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