From 6ca336af85e8d14ff4dd35ca09740eefc47eda99 Mon Sep 17 00:00:00 2001
From: rlar <rlar>
Date: Mon, 16 May 2016 12:15:42 +0200
Subject: [PATCH] nupa_subcktcall(), pscopy transform

---
 src/frontend/numparam/xpressn.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/frontend/numparam/xpressn.c b/src/frontend/numparam/xpressn.c
index 8196fdae4..d308442f6 100644
--- a/src/frontend/numparam/xpressn.c
+++ b/src/frontend/numparam/xpressn.c
@@ -1643,7 +1643,7 @@ nupa_subcktcall(dico_t *dico, char *s, char * const x, char * const inst_name)
                     char *hp = kp;
                     while (*kp > ' ')
                         kp++;
-                    pscopy(&ustr, t_p, (int) (hp - t_p), (int) (kp - hp));
+                    pscopy(&ustr, hp, 0, (int) (kp - hp));
                     jp = kp;
                 } else if (*kp == '{') {
                     jp = getexpress(NULL, &ustr, jp);