diff --git a/core/assocs/assocs.factor b/core/assocs/assocs.factor
index 6b66a79358..e441855ed1 100755
--- a/core/assocs/assocs.factor
+++ b/core/assocs/assocs.factor
@@ -202,6 +202,10 @@ M: sequence assoc-like
 M: sequence >alist ; inline
 
 ! Override sequence => assoc instance for f
+M: f at* 2drop f f ; inline
+
+M: f assoc-size drop 0 ; inline
+
 M: f clear-assoc drop ; inline
 
 M: f assoc-like drop dup assoc-empty? [ drop f ] when ; inline