diff --git a/basis/alien/destructors/destructors.factor b/basis/alien/destructors/destructors.factor
index 99fc9d1d97..6c55528b70 100644
--- a/basis/alien/destructors/destructors.factor
+++ b/basis/alien/destructors/destructors.factor
@@ -7,7 +7,7 @@ SLOT: alien
 
 FUNCTOR: define-destructor ( F -- )
 
-F-destructor DEFINES ${F}-destructor
+F-destructor DEFINES-CLASS ${F}-destructor
 <F-destructor> DEFINES <${F}-destructor>
 &F DEFINES &${F}
 |F DEFINES |${F}