diff --git a/extra/delegate/delegate.factor b/extra/delegate/delegate.factor
index 962746ec1a..8ff5e2110b 100644
--- a/extra/delegate/delegate.factor
+++ b/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
diff --git a/extra/xml/data/data.factor b/extra/xml/data/data.factor
index d3f89d3807..ae54816471 100644
--- a/extra/xml/data/data.factor
+++ b/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