diff --git a/lee/state_machine/core/src/program/mod.rs b/lee/state_machine/core/src/program/mod.rs
index e2c9f0dd2..44b45bebf 100644
--- a/lee/state_machine/core/src/program/mod.rs
+++ b/lee/state_machine/core/src/program/mod.rs
@@ -524,7 +524,8 @@ impl ProgramOutput {
     }
 
     pub fn write(self) {
-        env::commit(&self);
+        let payload = borsh::to_vec(&self).expect("borsh serialization is infallible");
+        env::commit_slice(&crate::to_frame(&payload));
     }
 
     pub fn with_chained_calls(mut self, chained_calls: Vec<ChainedCall>) -> Self {