From d138d28133e65fbabfecdf4ed817196b81debc81 Mon Sep 17 00:00:00 2001
From: pooryorick <com.digitalsmarties@pooryorick.com>
Date: Sun, 1 Dec 2019 13:48:48 +0000
Subject: Fix tcltest::SetupTest added in previous commit.

---
 library/tcltest/tcltest.tcl | 12 +++++-------
 1 file changed, 5 insertions(+), 7 deletions(-)

diff --git a/library/tcltest/tcltest.tcl b/library/tcltest/tcltest.tcl
index 2d36d13..820e978 100644
--- a/library/tcltest/tcltest.tcl
+++ b/library/tcltest/tcltest.tcl
@@ -1983,8 +1983,9 @@ proc tcltest::test {name description args} {
     }
 
     # First, run the setup script
-    lassign [uplevel 1 [list [
-		namespace which SetupScript] $setup]] code setupMsg
+    set code [catch {
+		uplevel 1 [list [namespace which SetupTest] $setup]
+	} setupMsg]
     if {$code == 1} {
 	set errorInfo(setup) $::errorInfo
 	set errorCodeRes(setup) $::errorCode
@@ -2368,11 +2369,8 @@ proc tcltest::RunTest {name script} {
 #
 # Evaluates the -setup script for a test
 
-proc tcltest::SetupTest {name script} {
-    DebugPuts 3 [list Setup Script for $name $script]
-
-    set code [catch {uplevel 1 $setup} setupMsg]
-	return [list $code $setupMsg]
+proc tcltest::SetupTest setup {
+    uplevel 1 $setup
 }
 
 #####################################################################
-- 
cgit v0.12