diff --git a/core/kernel/kernel.factor b/core/kernel/kernel.factor
index a79e65c2b4..65ecbe8b31 100644
--- a/core/kernel/kernel.factor
+++ b/core/kernel/kernel.factor
@@ -220,6 +220,8 @@ M: identity-tuple hashcode* nip identity-hashcode ; inline
         2dup both-fixnums? [ 2drop f ] [ equal? ] if
     ] if ; inline
 
+: same? ( x y quot -- ? ) bi@ = ; inline
+
 GENERIC: clone ( obj -- cloned )
 
 M: object clone ; inline