diff --git a/core/assocs/assocs.factor b/core/assocs/assocs.factor
index f2fee03997..c48a3bc435 100644
--- a/core/assocs/assocs.factor
+++ b/core/assocs/assocs.factor
@@ -182,7 +182,7 @@ M: assoc value-at* swap [ = nip ] curry assoc-find nip ;
     [ ?push ] change-at ;
 
 : zip ( keys values -- alist )
-    2array flip ; inline
+    [ 2array ] { } 2map-as ; inline
 
 : unzip ( assoc -- keys values )
     dup assoc-empty? [ drop { } { } ] [ >alist flip first2 ] if ;