Merge 8.6

1 files changed, 2 insertions, 2 deletions

diff --git a/tests/safe.test b/tests/safe.test
index aeed361..eb67237 100644
--- a/tests/safe.test
+++ b/tests/safe.test
@@ -141,13 +141,13 @@ test safe-2.4 {Unsafe subcommands not available} -setup {
     safe::interpCreate a
     safe::loadTk a
     set status broken
-    if {[catch {interp eval a {tk scaling}} msg]} {
+    if {[catch {interp eval a {tk scaling 1}} msg]} {
 	set status ok
     }
     list $status $msg
 } -cleanup {
     safe::interpDelete a
-} -result {ok {scaling not accessible in a safe interpreter}}
+} -result {ok {setting the scaling not accessible in a safe interpreter}}
 
 test safe-3.1 {Unsafe commands are available hidden} -setup {
     catch {safe::interpDelete a}