diff --git a/basis/compiler/cfg/ssa/destruction/destruction.factor b/basis/compiler/cfg/ssa/destruction/destruction.factor
index 4da2e1db28..0d1f5d968f 100644
--- a/basis/compiler/cfg/ssa/destruction/destruction.factor
+++ b/basis/compiler/cfg/ssa/destruction/destruction.factor
@@ -74,6 +74,8 @@ GENERIC: prepare-insn ( insn -- )
 
 M: insn prepare-insn drop ;
 
+M: alien-call-insn prepare-insn drop ;
+
 M: vreg-insn prepare-insn
     [ temp-vregs [ leader-map get conjoin ] each ]
     [