From 88844ba74d9181832bd72d5dc23b7cd81336cf77 Mon Sep 17 00:00:00 2001
From: Holger Vogt <holger.vogt@uni-due.de>
Date: Sun, 31 Dec 2023 13:32:45 +0100
Subject: [PATCH] Prevent vectors carrying the E POLY source current from being
 disaggregated

---
 src/frontend/variable.c | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/src/frontend/variable.c b/src/frontend/variable.c
index 5bc2c1f93..205ea969b 100644
--- a/src/frontend/variable.c
+++ b/src/frontend/variable.c
@@ -861,6 +861,10 @@ wordlist *cp_variablesubst(wordlist *wlist)
 
         while ((s_dollar = strchr(wl->wl_word + i, '$')) != NULL) {
 
+            /* Prevent vectors carrying the E POLY source current from being disaggregated */
+            if (ciprefix("a$poly$", wl->wl_word))
+                break;
+
             int prefix_len = (int) (s_dollar - wl->wl_word);
 
             char *tail = span_var_expr(s_dollar + 1);