--- trunk/base/src/port/portindex.tcl 2012-02-25 18:26:50 UTC (rev 90187)
+++ trunk/base/src/port/portindex.tcl 2012-02-25 18:55:00 UTC (rev 90188)
@@ -165,7 +165,7 @@
}
}
-if {[expr $argc > 4]} {
+if {[expr $argc > 8]} {
print_usage
exit 1
}