From f14ebf323fca510fc10e31c0b2bab642e30931bc Mon Sep 17 00:00:00 2001
From: Tim Edwards <tim@opencircuitdesign.com>
Date: Thu, 26 Apr 2018 08:00:47 -0400
Subject: [PATCH] Fixed a script error that caused pins not to be reported in
 the Tcl list and JSON formatted outputs.

---
 tcltk/netgen.tcl.in | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/tcltk/netgen.tcl.in b/tcltk/netgen.tcl.in
index 2621f55..2b0a9cc 100644
--- a/tcltk/netgen.tcl.in
+++ b/tcltk/netgen.tcl.in
@@ -536,10 +536,10 @@ proc netgen::lvs { name1 name2 {setupfile setup.tcl} {logfile comp.out} args} {
 	    # Match pins
             netgen::log echo off
 	    if {$dolist == 1} {
-		set result [equate pins "$fnum1 [lindex $endval 0]" \
+		set result [equate -list pins "$fnum1 [lindex $endval 0]" \
 				"$fnum2 [lindex $endval 1]"]
 	    } else {
-		set result [equate -list pins "$fnum1 [lindex $endval 0]" \
+		set result [equate pins "$fnum1 [lindex $endval 0]" \
 				"$fnum2 [lindex $endval 1]"]
 	    }
 	    if {$result != 0} {