From 2bb32164c71a0cb61e48d818b1209b952435a63f Mon Sep 17 00:00:00 2001
From: Tanaka Akira <akr@users.sourceforge.net>
Date: Wed, 15 Mar 2000 09:39:05 +0000
Subject: zsh-workers/10144

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

(limited to 'Src/Modules')

diff --git a/Src/Modules/parameter.c b/Src/Modules/parameter.c
index 606ce4583..5dce2f958 100644
--- a/Src/Modules/parameter.c
+++ b/Src/Modules/parameter.c
@@ -345,7 +345,7 @@ setfunction(char *name, char *val, int dis)
 	return;
     }
     shf = (Shfunc) zalloc(sizeof(*shf));
-    shf->funcdef = zdupeprog(prog);
+    shf->funcdef = dupeprog(prog, 0);
     shf->flags = dis;
 
     if (!strncmp(name, "TRAP", 4) &&
-- 
cgit 1.4.1