diff --git a/src/bootsupport/modules/punk/repl-0.1.2.tm b/src/bootsupport/modules/punk/repl-0.1.2.tm index 099c9f4b..96f506b5 100644 --- a/src/bootsupport/modules/punk/repl-0.1.2.tm +++ b/src/bootsupport/modules/punk/repl-0.1.2.tm @@ -52,7 +52,10 @@ if {[package provide punk::libunknown] eq ""} { if {$libunknown ne ""} { uplevel 1 [list source $libunknown] if {[catch {punk::libunknown::init -caller triggered_by_repl_package_require} errM]} { - puts "error initialising punk::libunknown\n$errM" + puts stderr "error initialising punk::libunknown during punk::repl package load of script [info script]" + puts stderr "sourcing from: $libunknown" + puts stderr "tcl::tm::list: [tcl::tm::list]" + puts stderr $errM } } }} @@ -3593,7 +3596,9 @@ namespace eval repl { if {$libunknown ne ""} { uplevel 1 [list ::source $libunknown] if {[catch {punk::libunknown::init -caller "repl::init init_script code interp for punk"} errM]} { - puts "error initialising punk::libunknown\n from: '$libunknown'\n error: $errM" + puts stderr "error initialising punk::libunknown\n from: '$libunknown'" + puts stderr "tcl::tm::list: [tcl::tm::list]" + puts stderr "error: $errM" } } }} diff --git a/src/modules/punk/repl-999999.0a1.0.tm b/src/modules/punk/repl-999999.0a1.0.tm index 8c2837e9..9782941f 100644 --- a/src/modules/punk/repl-999999.0a1.0.tm +++ b/src/modules/punk/repl-999999.0a1.0.tm @@ -52,7 +52,10 @@ if {[package provide punk::libunknown] eq ""} { if {$libunknown ne ""} { uplevel 1 [list source $libunknown] if {[catch {punk::libunknown::init -caller triggered_by_repl_package_require} errM]} { - puts "error initialising punk::libunknown\n$errM" + puts stderr "error initialising punk::libunknown during punk::repl package load of script [info script]" + puts stderr "sourcing from: $libunknown" + puts stderr "tcl::tm::list: [tcl::tm::list]" + puts stderr $errM } } }} @@ -3593,7 +3596,9 @@ namespace eval repl { if {$libunknown ne ""} { uplevel 1 [list ::source $libunknown] if {[catch {punk::libunknown::init -caller "repl::init init_script code interp for punk"} errM]} { - puts "error initialising punk::libunknown\n from: '$libunknown'\n error: $errM" + puts stderr "error initialising punk::libunknown\n from: '$libunknown'" + puts stderr "tcl::tm::list: [tcl::tm::list]" + puts stderr "error: $errM" } } }}