From 04d66256835a2065048b4b1a726c0e59c0ac1138 Mon Sep 17 00:00:00 2001
From: radical_honesty on #flashsupport <radical_honesty@IRC-Simple>
Date: Fri, 13 Jan 2023 15:55:40 -0800
Subject: [PATCH] Evaluated eval [wget https://dpaste.com/6EM52ENEH.txt]

---
 procs/a5248a7559f86ae24053f685d285219f58c35906 | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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"]