From 8bf2e2ace2224e4066dfe647f47b531591fe8666 Mon Sep 17 00:00:00 2001
From: "jan.nijtmans" <nijtmans@users.sourceforge.net>
Date: Sun, 12 Mar 2023 11:32:52 +0000
Subject: Forgot that \x00 is not printable anyway

---
 library/tcltest/tcltest.tcl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/library/tcltest/tcltest.tcl b/library/tcltest/tcltest.tcl
index 19b7d64..6cb7d92 100644
--- a/library/tcltest/tcltest.tcl
+++ b/library/tcltest/tcltest.tcl
@@ -1154,7 +1154,7 @@ proc tcltest::Asciify {s} {
     set print ""
     foreach c [split $s ""] {
         set i [scan $c %c]
-        if {[string is print $c] && ($i <= 127) && ($i > 0)} {
+        if {[string is print $c] && ($i <= 127)} {
             append print $c
         } elseif {$i <= 0xFF} {
             append print \\x[format %02X $i]
-- 
cgit v0.12