diff --git a/core/assocs/assocs.factor b/core/assocs/assocs.factor
index f8371640c4..e8ed1637e6 100644
--- a/core/assocs/assocs.factor
+++ b/core/assocs/assocs.factor
@@ -58,7 +58,7 @@ PRIVATE>
     (assoc-each) each ; inline
 
 : assoc>map ( assoc quot exemplar -- seq )
-    [ collector [ assoc-each ] dip ] dip like ; inline
+    [ collector-for [ assoc-each ] dip ] [ like ] bi ; inline
 
 : assoc-map-as ( assoc quot exemplar -- newassoc )
     [ [ 2array ] compose V{ } assoc>map ] dip assoc-like ; inline