diff --git a/src/rustint/core.clj b/src/rustint/core.clj
index 4fefd6a..0daa5da 100644
--- a/src/rustint/core.clj
+++ b/src/rustint/core.clj
@@ -2084,7 +2084,7 @@
                   argval (second fetched),
                   next_cont_prg argval,
                   reg-act-to-add (get mapa-regs argval),
-                  retdir (inc argval)
+                  retdir (inc cont-prg)
                 ]
                 (recur cod (conj regs-de-act reg-act-to-add) next_cont_prg (conj pila retdir) mapa-regs)
           )