diff --git a/commands/CmdLQ.c b/commands/CmdLQ.c
index a038da62..2c6fda11 100644
--- a/commands/CmdLQ.c
+++ b/commands/CmdLQ.c
@@ -1394,9 +1394,9 @@ CmdPort(w, cmd)
 		if (lab == NULL)
 		{
 		    if (StrIsInt(cmd->tx_argv[1]))
-			TxError("No label found with name %s.\n", cmd->tx_argv[1]);
+			TxError("No label found with index %s.\n", cmd->tx_argv[1]);
 		    else
-			TxError("No port found with index %s.\n", cmd->tx_argv[1]);
+			TxError("No port found with name %s.\n", cmd->tx_argv[1]);
 		    return;
 		}
 		argstart = 2;
diff --git a/tcltk/readspice.tcl b/tcltk/readspice.tcl
index a282cf39..66e116ed 100644
--- a/tcltk/readspice.tcl
+++ b/tcltk/readspice.tcl
@@ -117,11 +117,11 @@ proc readspice {netfile} {
 		  # is by no means exhaustive.
 
 		  if {$pinidx == ""} {
-		      set testpin [string map {\[ < \] >]} $pin
+		      set testpin [string map {\[ < \] >]} $pin]
 		      set pinidx [port $testpin index]
 		  }
 		  if {$pinidx == ""} {
-		      set testpin [string map {< \[ > \]} $pin
+		      set testpin [string map {< \[ > \]} $pin]
 		      set pinidx [port $testpin index]
 		  }