     [ finalize-phantoms ##epilogue ] 2dip ##dispatch
     dispatch-branches init-phantoms ;
 
+: <dispatch-block> ( -- word )
+    gensym dup t "inlined-block" set-word-prop ;
+
 M: #dispatch emit-node
     tail-call? [
         emit-dispatch stop-iterating
     ] [
-        current-word get gensym [
+        current-word get <dispatch-block> [
             [
                 begin-word
                 emit-dispatch

    [ ##alien-indirect ] emit-alien-node ;

M: #alien-callback emit-node
    params>> dup xt>> dup
    [
        init-phantoms
        [ ##alien-callback ] emit-alien-node drop

        [ alien-parameters parameter-sizes drop >>params ] bi
        dup [ params>> ] [ return>> ] bi + >>size ;

: emit-alien-node ( node quot -- next )
    [ params>> ] dip
    [ drop <alien-stack-frame> ##stack-frame ] [ call ] 2bi
    iterate-next ; inline

M: #alien-invoke emit-node
