diff --git a/minitests/switchboxes/runme.tcl b/minitests/switchboxes/runme.tcl
index 3814434d..b4072b92 100644
--- a/minitests/switchboxes/runme.tcl
+++ b/minitests/switchboxes/runme.tcl
@@ -46,7 +46,7 @@ proc tile_pip_report {fd tile_name} {
 				set src_span [llength [get_tiles -of_objects $src_node]]
 				puts $fd "     Source Wire (Node, Span): $src ($src_node, $src_span) via $pip"
 			}
-			foreach pip [get_pips -filter "TILE != $tile" -uphill -of_objects $dst_node] {
+			foreach pip [get_pips -quiet -filter "TILE != $tile" -uphill -of_objects $dst_node] {
 				puts $fd "           Outside Source PIP: $pip"
 			}
 		}
@@ -69,7 +69,7 @@ proc tile_pip_report {fd tile_name} {
 				set src_span [llength [get_tiles -of_objects $src_node]]
 				puts $fd "     Source Wire (Node, Span): $src ($src_node, $src_span) via $pip"
 			}
-			foreach pip [get_pips -filter "TILE != $tile" -uphill -of_objects $dst_node] {
+			foreach pip [get_pips -quiet -filter "TILE != $tile" -uphill -of_objects $dst_node] {
 				puts $fd "           Outside Source PIP: $pip"
 			}
 		}
diff --git a/utils/utils.tcl b/utils/utils.tcl
new file mode 100644
index 00000000..e8f9d41c
--- /dev/null
+++ b/utils/utils.tcl
@@ -0,0 +1,9 @@
+
+proc route_via {net nodes} {
+	# FIXME
+}
+
+proc putl {lst} {
+	foreach line $lst {puts $line}
+}
+