 : expand-values-push-at-as ( assoc exemplar -- hashtable' )
     [
         [ dup sequence? [ 1array ] unless swap ]
-        [ '[ _ push-at ] curry each ]
+        [ '[ _ _ push-at ] each ]
     ] dip assoc>object ;
 
 : expand-values-push-at ( assoc -- assoc )

: expand-values-set-at-as ( assoc exemplar -- hashtable' )
    [
        [ dup sequence? [ 1array ] unless swap ]
        [ '[ _ set-at ] curry each ]
    ] dip assoc>object ;

: expand-values-set-at ( assoc -- hashtable' )

: expand-keys-push-as ( assoc exemplar -- hashtable' )
    [
        [ [ dup sequence? [ 1array ] unless ] dip ]
        [ '[ _ 2array _ push ] each ]
    ] dip assoc>object ;

: expand-keys-push ( assoc -- hashtable' )
