diff --git a/procs/a5248a7559f86ae24053f685d285219f58c35906 b/procs/a5248a7559f86ae24053f685d285219f58c35906
index 2e15012..535ecb9 100644
--- a/procs/a5248a7559f86ae24053f685d285219f58c35906
+++ b/procs/a5248a7559f86ae24053f685d285219f58c35906
@@ -6,9 +6,11 @@
         set u 0                            
         set cf -1
         set cb -1                               
-        set r [lindex $c 0]
+        set r ""
         foreach f [lindex $c 1] {
                 lappend debug "working on $f";
+                append r [lindex [lindex $c 0] $f];
+                lappend debug "actually appended the character to be formatted: $r";
                 if {[lindex $f 0] > $n} {
                         lappend debug "reached end of string"
                         if {$b eq 1} {append r "\002"; lappend debug "ending bold";}