Merge safe-bugfixes-8-6

1 files changed, 7 insertions, 0 deletions

diff --git a/library/safe.tcl b/library/safe.tcl
index 164ccab..681d843 100644
--- a/library/safe.tcl
+++ b/library/safe.tcl
@@ -1066,6 +1066,13 @@ proc ::safe::AliasLoad {slave file args} {
     try {
 	return [::interp invokehidden $slave load $file $package $target]
     } on error msg {
+	# Some packages return no error message.
+	set msg0 "load of binary library for package $package failed"
+	if {$msg eq {}} {
+	    set msg $msg0
+	} else {
+	    set msg "$msg0: $msg"
+	}
 	Log $slave $msg
 	return -code error $msg
     }