diff --git a/VERSION b/VERSION
index ff64910e..dc0d58f7 100644
--- a/VERSION
+++ b/VERSION
@@ -1 +1 @@
-8.3.73
+8.3.74
diff --git a/tcltk/readspice.tcl b/tcltk/readspice.tcl
index dda21d63..333534f4 100644
--- a/tcltk/readspice.tcl
+++ b/tcltk/readspice.tcl
@@ -220,10 +220,14 @@ proc readspice {netfile} {
 		   set pinname [lindex $infopair 0]
 		   set pindir [lindex $infopair 1]
 		   if {![catch {set pin [dict get $pindict $pinname]}]} {
-		      case $pindir {
-		         B {port $pin class inout}
-		         I {port $pin class input}
-		         O {port $pin class output}
+		      # Only set pin class if the pin class is currently default
+		      set pinclass [port $pin class]
+		      if {$pinclass == "default"} {
+		         case $pindir {
+		            B {port $pin class inout}
+		            I {port $pin class input}
+		            O {port $pin class output}
+			 }
 		      }
 		   } elseif {$pinname != ""} {
 		      puts stderr ".PININFO error:  Pin $pinname not found."