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 {