From eab0fe770d23de62ab8d5019b4a87d4d41f2b0ff Mon Sep 17 00:00:00 2001
From: Tim Edwards <tim@opencircuitdesign.com>
Date: Sat, 27 Jun 2020 21:46:53 -0400
Subject: [PATCH] Corrected the readspice script to treat the input line as a
 string and not a character list when checking the first character of a SPICE
 netlist for a comment or continuation character.

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

diff --git a/tcltk/readspice.tcl b/tcltk/readspice.tcl
index 66e116ed..6357eab3 100644
--- a/tcltk/readspice.tcl
+++ b/tcltk/readspice.tcl
@@ -57,8 +57,8 @@ proc readspice {netfile} {
    set fdata {}
    set lastline ""
    while {[gets $fnet line] >= 0} {
-       if {[lindex $line 0] != "*"} {
-           if {[lindex $line 0] == "+"} {
+       if {[string index $line 0] != "*"} {
+           if {[string index $line 0] == "+"} {
                if {[string range $line end end] != " "} {
                   append lastline " "
 	       }