From cc9979a600bfbc0823c6b103b8ec03b472b2ea1d Mon Sep 17 00:00:00 2001
From: Eugene Sandulenko
Date: Thu, 18 Aug 2016 10:22:56 +0200
Subject: DIRECTOR: Lingo: Fix subroutine exit

---
 engines/director/lingo/lingo-code.cpp | 1 +
 1 file changed, 1 insertion(+)

diff --git a/engines/director/lingo/lingo-code.cpp b/engines/director/lingo/lingo-code.cpp
index 28d2ed44cf..a39eb61a05 100644
--- a/engines/director/lingo/lingo-code.cpp
+++ b/engines/director/lingo/lingo-code.cpp
@@ -872,6 +872,7 @@ void Lingo::c_procret() {
 	debugC(5, kDebugLingoExec, "Popping frame %d", g_lingo->_callstack.size() + 1);
 
 	CFrame *fp = g_lingo->_callstack.back();
+	g_lingo->_callstack.pop_back();
 
 	g_lingo->_currentScript = fp->retscript;
 	g_lingo->_pc = fp->retpc;
-- 
cgit v1.2.3