diff --git a/procs/a5248a7559f86ae24053f685d285219f58c35906 b/procs/a5248a7559f86ae24053f685d285219f58c35906 index 4fb8a7a..2e15012 100644 --- a/procs/a5248a7559f86ae24053f685d285219f58c35906 +++ b/procs/a5248a7559f86ae24053f685d285219f58c35906 @@ -6,7 +6,7 @@ set u 0 set cf -1 set cb -1 - set r "" + set r [lindex $c 0] foreach f [lindex $c 1] { lappend debug "working on $f"; if {[lindex $f 0] > $n} { @@ -28,7 +28,7 @@ } if {$b eq 1} {append r "\002"; lappend debug "starting bold"} if {$u eq 1} {append r "\037"; lappend debug "starting underline"} - if {$cf > -1} {append r [format "\002%s" $cf]; lappend debug "starting color"} + if {$cf > -1} {append r [format "%s" $cf]; lappend debug "starting color"} if {$cb > -1} {append r [format ",%s" $cb]; lappend debug "adding background color"} lappend debug "final result: $r" return [join $debug "\n"]