From f2d7cc4ca808f6fb1b0800cd8cfe72aff0e7f973 Mon Sep 17 00:00:00 2001
From: Stefan Schippers <stefan.schippers@gmail.com>
Date: Thu, 8 Oct 2020 03:31:24 +0200
Subject: [PATCH] fix hierarchical pathname for current probes to gaw

---
 src/hilight.c | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/hilight.c b/src/hilight.c
index 7e9b9405..ec4ff7fd 100644
--- a/src/hilight.c
+++ b/src/hilight.c
@@ -716,7 +716,8 @@ static void send_current_to_gaw(const char *node)
   for(k=1; k<=tok_mult; k++) {
     my_strdup(246, &t, find_nth(expanded_tok, ',', k));
     my_strdup2(254, &p, sch_path[currentsch]+1);
-    Tcl_VarEval(interp, "puts $gaw_fd {copyvar i(", strtolower(p), strtolower(t),
+    Tcl_VarEval(interp, "puts $gaw_fd {copyvar i(", currentsch>0 ? "v." : "",
+                strtolower(p), strtolower(t),
                 ") p0 #", color_str, "}\nvwait gaw_fd\n", NULL);
   }
   my_free(774, &p);