bootsupport: promote tcltestrun 0.4.1 (errorInfo/errorCode capture normalization)

make.tcl modules + bootsupport outputs (punkcheck-managed): punk/tcltestrun
0.4.0 -> 0.4.1. The runner parent loads this copy - promotion puts the
normalized errorInfo/errorCode capture in front of runtests.tcl.

Assisted-by: harness=claude; primary-model=claude-fable-5; api-location=anthropic.com

src/bootsupport/modules/punk/tcltestrun-0.4.1.tm

@@ -8,7 +8,7 @@
 # (C) 2026
 #
 # @@ Meta Begin
-# Application punk::tcltestrun 0.4.0
+# Application punk::tcltestrun 0.4.1
 # Meta platform     tcl
 # Meta license      BSD
 # @@ Meta End
@@ -292,10 +292,14 @@ tcl::namespace::eval punk::tcltestrun {
                             if {$fail_stage eq "error" && ![string match "==== * FAILED" $ln_trimright]} {
                                 if {[string match "---- errorInfo: *" $ln]} {
                                     dict append results out "<stdout><$pkg> $ln" \n
-                                    dict append test_case_fail errorinfo "[string range $ln 15 end]\n"
+                                    #"---- errorInfo: " is 16 chars (indices 0-15) - capture from index 16
+                                    #so the value carries no leading space (0.4.1; historically ranged from
+                                    #15 and every captured value led with the prefix's trailing space)
+                                    dict append test_case_fail errorinfo "[string range $ln 16 end]\n"
                                     continue
                                 } elseif {[string match "---- errorCode: *" $ln]} {
-                                    dict set test_case_fail errorcode "[string range $ln 15 end]"
+                                    #same 16-char prefix and index-16 capture as errorInfo above (0.4.1)
+                                    dict set test_case_fail errorcode "[string range $ln 16 end]"
                                     dict append results out "<stdout><$pkg> $ln" \n
                                     continue
                                 } elseif {[string match "---- *" $ln]} {
@@ -637,7 +641,7 @@ namespace eval ::punk::args::register {
 package provide punk::tcltestrun [tcl::namespace::eval punk::tcltestrun {
     variable pkg punk::tcltestrun
     variable version
-    set version 0.4.0
+    set version 0.4.1
 }]
 return