From 352ae8df3d9b021790b2a958bb44ed445889ca7f Mon Sep 17 00:00:00 2001
From: "Tobias S. Josefowitz" <tobij@tobij.de>
Date: Thu, 4 Jul 2013 00:22:04 +0200
Subject: [PATCH] lower_mega_apply: fix "bad offset"

---
 src/interpret.c | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/interpret.c b/src/interpret.c
index 9fec01730d..1c102dfaee 100644
--- a/src/interpret.c
+++ b/src/interpret.c
@@ -2183,6 +2183,8 @@ int lower_mega_apply( INT32 args, struct object *o, ptrdiff_t fun )
           else
           {
             struct object *tmp;
+            new_frame->pc = 0;
+            new_frame->num_args = 0;
             tmp=parent_clone_object(constant->u.program,
                                     o,
                                     fun,
-- 
GitLab