diff --git a/src/machine/dispatch.rs b/src/machine/dispatch.rs
index c1b394c6..fc13d825 100644
--- a/src/machine/dispatch.rs
+++ b/src/machine/dispatch.rs
@@ -2817,6 +2817,7 @@ impl Machine {
                                 self.machine_st.mode = MachineMode::Write;
 
                                 debug_assert!(!self.machine_st.fail);
+                                self.machine_st.p += 1;
 
                                 continue;
                             }