diff --git a/core/alien/alien.factor b/core/alien/alien.factor
index 1c4a6cc168..f008a4bd59 100644
--- a/core/alien/alien.factor
+++ b/core/alien/alien.factor
@@ -39,7 +39,8 @@ M: alien equal?
         2drop f
     ] if ;
 
-M: simple-alien hashcode* nip dup expired>> [ drop 1234 ] [ alien-address ] if ;
+M: pinned-alien hashcode*
+    nip dup expired>> [ drop 1234 ] [ alien-address ] if ;
 
 ERROR: alien-callback-error ;
 
diff --git a/core/slots/slots.factor b/core/slots/slots.factor
index 95a854f493..0422478884 100755
--- a/core/slots/slots.factor
+++ b/core/slots/slots.factor
@@ -173,7 +173,7 @@ M: class initial-value* no-initial-value ;
         { [ string bootstrap-word over class<= ] [ "" ] }
         { [ array bootstrap-word over class<= ] [ { } ] }
         { [ byte-array bootstrap-word over class<= ] [ B{ } ] }
-        { [ simple-alien bootstrap-word over class<= ] [ <bad-alien> ] }
+        { [ pinned-alien bootstrap-word over class<= ] [ <bad-alien> ] }
         { [ quotation bootstrap-word over class<= ] [ [ ] ] }
         [ dup initial-value* ]
     } cond nip ;