From 79ed1a0e22f0660eedbd3966ea51d74928d68d26 Mon Sep 17 00:00:00 2001
From: Peter Stephenson <pws@users.sourceforge.net>
Date: Wed, 20 Jun 2001 10:06:51 +0000
Subject: Bug restoring saving special parameters for function scope.

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

(limited to 'Src/exec.c')

diff --git a/Src/exec.c b/Src/exec.c
index aa78a7ce6..595d26532 100644
--- a/Src/exec.c
+++ b/Src/exec.c
@@ -2395,7 +2395,7 @@ save_params(Estate state, Wordcode pc, LinkList *restore_p, LinkList *remove_p)
 	    } else if (!(pm->flags & PM_READONLY) &&
 		       (unset(RESTRICTED) || !(pm->flags & PM_RESTRICTED))) {
 		Param tpm = (Param) zhalloc(sizeof *tpm);
-		tpm->nam = s;
+		tpm->nam = dupstring(s);
 		copyparam(tpm, pm, 1);
 		pm = tpm;
 	    }
-- 
cgit 1.4.1