ngspice annotator: avoid adding "x" to node path names if not in spice netlist mode

src/xschem.tcl

@@ -2068,11 +2068,13 @@ proc tclpropeval {s instname symname} {
 
 # this hook is called in translate() if whole string is contained in a tcleval(...) construct
 proc tclpropeval2 {s} {
-  global tcl_debug env
+  global tcl_debug env netlist_type
   if {$tcl_debug <=-1} {puts "tclpropeval2: $s"}
   set path [string range [xschem get sch_path] 1 end]
-  regsub {^([^xX])} $path {x\1} path
-  while { [regsub {\.([^xX])} $path {.x\1} path] } {}
+  if { $netlist_type eq {spice} } {
+    regsub {^([^xX])} $path {x\1} path
+    while { [regsub {\.([^xX])} $path {.x\1} path] } {}
+  }
   # puts "---> path=$path"
   regsub {^tcleval\(} $s {} s
   regsub {\)([ \n\t]*)$} $s {\1} s