diff --git a/basis/stack-checker/alien/alien.factor b/basis/stack-checker/alien/alien.factor
index 12f2a7beeb..ee62c10e50 100644
--- a/basis/stack-checker/alien/alien.factor
+++ b/basis/stack-checker/alien/alien.factor
@@ -107,7 +107,7 @@ TUPLE: alien-callback-params < alien-node-params xt ;
 : callback-xt ( word -- alien )
     callbacks get [
         dup "stack-cleanup" word-prop <callback>
-        callback-destructor boa &dispose callback>>
+        [ callback-destructor new-disposable callback<< ] keep
     ] cache ;
 
 : callback-bottom ( params -- )