diff --git a/core/alien/alien.factor b/core/alien/alien.factor
index ea0cb9208e..05f5223548 100644
--- a/core/alien/alien.factor
+++ b/core/alien/alien.factor
@@ -49,6 +49,8 @@ M: alien equal?
         2drop f
     ] if ;
 
+M: simple-alien hashcode* nip alien-address ;
+
 ERROR: alien-callback-error ;
 
 : alien-callback ( return parameters abi quot -- alien )