From fffc4119bef3f1894ff2043a720b902b6a88adbe Mon Sep 17 00:00:00 2001
From: apnadkarni <apnmbx-wits@yahoo.com>
Date: Fri, 22 Sep 2023 13:56:35 +0000
Subject: [PATCH] Bug [0aaeb9c380]. Fix spurious tcltest output on hyphenated
 constraints

---
 library/tcltest/tcltest.tcl | 1 +
 1 file changed, 1 insertion(+)

diff --git a/library/tcltest/tcltest.tcl b/library/tcltest/tcltest.tcl
index 984f5c1cc68..d3e9ea4075f 100644
--- a/library/tcltest/tcltest.tcl
+++ b/library/tcltest/tcltest.tcl
@@ -2365,6 +2365,7 @@ proc tcltest::Skipped {name constraints} {
 	# make sure that the constraints are satisfied.
 
 	set doTest 0
+        set constraints [string trim $constraints]
 	if {[string match {*[$\[]*} $constraints] != 0} {
 	    # full expression, e.g. {$foo > [info tclversion]}
 	    catch {set doTest [uplevel #0 [list expr $constraints]]}