Modified: trunk/base/src/port/port.tcl (75259 => 75260)

--- trunk/base/src/port/port.tcl	2011-01-19 06:32:28 UTC (rev 75259)
+++ trunk/base/src/port/port.tcl	2011-01-19 07:28:43 UTC (rev 75260)
@@ -1909,6 +1909,7 @@
         # Tune for sort(1)
         if {[info exists options(ports_info_line)]} {
             array unset options ports_info_line
+            set noseparator 1
             set show_label 0
             set field_sep "\t"
             set subfield_sep ","
@@ -2082,7 +2083,9 @@
                 puts [join $fields_tried ", "]
             }
         }
-        set separator "--\n"
+        if {![info exists noseparator]} {
+            set separator "--\n"
+        }
     }
     
     return $status