diff --git a/base/netcmp.c b/base/netcmp.c
index 5641fea..fbc0353 100644
--- a/base/netcmp.c
+++ b/base/netcmp.c
@@ -6894,7 +6894,9 @@ int reorderpins(struct hashlist *p, int file)
     for (ob = ptr->cell; ob != NULL; ) {
         /* Catch badness */
 	if (ob->next && (ob->next->node > 100000)) {
-	    Fprintf(stdout, "Bad.\n");
+	    if (ob->next->node % 100000 == 0) {    
+		Fprintf(stdout, "Bad node. Node count %d\n", ob->next->node);
+	    }
 	} 
 
 	if (ob->type == FIRSTPIN) {
diff --git a/tcltk/netgen.tcl.in b/tcltk/netgen.tcl.in
index 2bd2e8e..dcfa8a3 100644
--- a/tcltk/netgen.tcl.in
+++ b/tcltk/netgen.tcl.in
@@ -562,7 +562,7 @@ proc netgen::lvs { name1 name2 {setupfile setup.tcl} {logfile comp.out} args} {
             if {[netgen::print queue] != {}} {
 	       if {([lsearch $noflat [lindex $endval 0]] == -1) &&
 			([lsearch $noflat [lindex $endval 1]] == -1)} {
-	           netgen::log put "  Flattening non-matched subcircuits $endval"
+	           netgen::log put "  Flattening non-matched subcircuits $endval\n"
 	           netgen::flatten class "[lindex $endval 0] $fnum1"
 	           netgen::flatten class "[lindex $endval 1] $fnum2"
 	       } else {