From 0ccb607f19319ed9cda9b4fe22a1012ffba37bc1 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?V=C3=ADtor=20Santos=20Costa?= <vsc@dcc.fc.up.pt>
Date: Fri, 18 Jun 2010 00:25:24 +0100
Subject: [PATCH] FIX: initslots could destroy environment

---
 C/exec.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/C/exec.c b/C/exec.c
index 873e7b54d..9bc968ba2 100644
--- a/C/exec.c
+++ b/C/exec.c
@@ -1164,11 +1164,11 @@ Yap_execute_goal(Term t, int nargs, Term mod)
     CP   = saved_cp;
     P    = saved_p;
     ASP  = ENV;
-    Yap_StartSlots();
 #ifdef DEPTH_LIMIT
     DEPTH= ENV[E_DEPTH];
 #endif
     ENV  = (CELL *)(ENV[E_E]);
+    Yap_StartSlots();
     /* we have failed, and usually we would backtrack to this B,
        trouble is, we may also have a delayed cut to do */
     if (B != NULL)