Fixed XML bug which made everything stop compiling

extra/delegate/delegate.factor

@@ -45,8 +45,10 @@ PROTOCOL: sequence-protocol
     set-nth set-nth-unsafe length set-length lengthen ;
 
 PROTOCOL: assoc-protocol
-    at* assoc-size >alist assoc-find set-at
+    at* assoc-size >alist set-at assoc-clone-like
     delete-at clear-assoc new-assoc assoc-like ;
+    ! assoc-find excluded because GENERIC# 1
+    ! everything should work, just slower (with >alist)
 
 PROTOCOL: stream-protocol
     stream-close stream-read1 stream-read stream-read-until

extra/xml/data/data.factor

@@ -96,10 +96,10 @@ CONSULT: sequence-protocol tag tag-children ;
 INSTANCE: tag sequence
 
 M: tag like
-    over tag? [
+    over tag? [ drop ] [
         [ delegate ] keep tag-attrs
         rot dup [ V{ } like ] when <tag>
-    ] unless ;
+    ] if ;
 
 M: tag clone
     [ delegate clone ] keep [ tag-attrs clone ] keep