diff --git a/base/netcmp.c b/base/netcmp.c
index 717421c..ab672ed 100644
--- a/base/netcmp.c
+++ b/base/netcmp.c
@@ -7350,7 +7350,6 @@ int MatchPins(struct nlist *tc1, struct nlist *tc2, int dolist)
 			Tcl_NewStringObj(ob2->name, -1));
          }
 #endif
-	 result = 0;
 
 	 /* Before making a proxy pin, check to see if	*/
 	 /* flattening instances has left a port with a	*/
@@ -7369,6 +7368,10 @@ int MatchPins(struct nlist *tc1, struct nlist *tc2, int dolist)
 	    needclean2 = 1;
 	    continue;
 	 }
+	 else if (notempty == 1) {
+	    /* Flag this as an error */
+	    result = 0;
+	 }
 	 ob2->model.port = numnodes++;	// Assign a port order
 
 	 /* Add a proxy pin to tc1 */