From ef6193b89b4d997aec31d6f36fb5c64db141c3d3 Mon Sep 17 00:00:00 2001
From: Peter Stephenson <pws@users.sourceforge.net>
Date: Wed, 20 Jun 2001 11:02:47 +0000
Subject: rewrite 14988 as per 14989

---
 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 595d26532..426d151b5 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 = dupstring(s);
+		tpm->nam = pm->nam;
 		copyparam(tpm, pm, 1);
 		pm = tpm;
 	    }
-- 
cgit 1.4.1