diff --git a/crates/aiken-lang/src/gen_uplc.rs b/crates/aiken-lang/src/gen_uplc.rs
index 23ee3c2f..fce35ef6 100644
--- a/crates/aiken-lang/src/gen_uplc.rs
+++ b/crates/aiken-lang/src/gen_uplc.rs
@@ -3968,7 +3968,7 @@ impl<'a> CodeGenerator<'a> {
 
                             let mut program: Program<Name> = Program {
                                 version: (1, 0, 0),
-                                term,
+                                term: self.special_functions.apply_used_functions(term),
                             };
 
                             let mut interner = Interner::new();