diff --git a/core/assocs/assocs.factor b/core/assocs/assocs.factor
index e46bb7abb6..f2a04dc01b 100755
--- a/core/assocs/assocs.factor
+++ b/core/assocs/assocs.factor
@@ -38,7 +38,7 @@ M: assoc assoc-like drop ;
 : substituter ( assoc -- quot )
     [ dupd at* [ nip ] [ drop ] if ] curry ; inline
 
-: with-assoc ( assoc quot: ( value key -- assoc ) -- quot: ( key value -- ) )
+: with-assoc ( assoc quot: ( value key assoc -- ) -- quot: ( key value -- ) )
     curry [ swap ] prepose ; inline
 
 PRIVATE>