Index: fsl
==================================================================
--- fsl
+++ fsl
@@ -338,10 +338,11 @@
 # result: a new (probably shorter) list with the unwrapped lines
 # (multiple spaces squeezed) 
 #-----------------------------------------------------------------------
    set len [llength $records]
    set i 0
+   set out {}
    while {$i < $len} {
       set record [lindex $records $i]
       incr i
       if {[regexp {^[0-9]} $record]} {
          set line [lindex $records $i]