From f84859276bb0eeb367a6397350f25dd109089489 Mon Sep 17 00:00:00 2001
From: Julian Noble <julian@precisium.com.au>
Date: Wed, 24 Dec 2025 11:34:28 +1100
Subject: [PATCH] fix sauce COMNT for tcl 8.6

---
 src/bootsupport/modules/punk/ansi/sauce-0.1.0.tm | 8 +++-----
 src/modules/punk/ansi/sauce-999999.0a1.0.tm      | 8 +++-----
 2 files changed, 6 insertions(+), 10 deletions(-)

diff --git a/src/bootsupport/modules/punk/ansi/sauce-0.1.0.tm b/src/bootsupport/modules/punk/ansi/sauce-0.1.0.tm
index 3a6291a5..79ea5901 100644
--- a/src/bootsupport/modules/punk/ansi/sauce-0.1.0.tm
+++ b/src/bootsupport/modules/punk/ansi/sauce-0.1.0.tm
@@ -79,11 +79,9 @@ tcl::namespace::eval punk::ansi::sauce {
                 set commentlines [list]
                 for {set c 0} {$c < $clines} {incr c} {
                     set rawline [chan read $fd 64]
-                    if {![catch {binary scan $rawline C* str} errM]} {
-                        set ln [format %-64s $str]
-                    } else {
-                        set ln [string repeat " " 64]
-                    }
+                    set str [lib::get_string $rawline]
+                    set ln [format %-64s $str]
+
                     if {![catch {encoding convertfrom cp437 $ln} line]} {
                         lappend commentlines $line
                     } else {
diff --git a/src/modules/punk/ansi/sauce-999999.0a1.0.tm b/src/modules/punk/ansi/sauce-999999.0a1.0.tm
index 265fa837..b8519fee 100644
--- a/src/modules/punk/ansi/sauce-999999.0a1.0.tm
+++ b/src/modules/punk/ansi/sauce-999999.0a1.0.tm
@@ -79,11 +79,9 @@ tcl::namespace::eval punk::ansi::sauce {
                 set commentlines [list]
                 for {set c 0} {$c < $clines} {incr c} {
                     set rawline [chan read $fd 64]
-                    if {![catch {binary scan $rawline C* str} errM]} {
-                        set ln [format %-64s $str]
-                    } else {
-                        set ln [string repeat " " 64]
-                    }
+                    set str [lib::get_string $rawline]
+                    set ln [format %-64s $str]
+
                     if {![catch {encoding convertfrom cp437 $ln} line]} {
                         lappend commentlines $line
                     } else {