Merge safe-extra-tests-8-7

1 files changed, 7 insertions, 0 deletions

diff --git a/library/safe.tcl b/library/safe.tcl
index b5ee95f..5f6bed1 100644
--- a/library/safe.tcl
+++ b/library/safe.tcl
@@ -1167,6 +1167,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
     }