From a43258ca2779c25a13c9bf9fd4199a3c1fcafd3d Mon Sep 17 00:00:00 2001
From: "jan.nijtmans" <nijtmans@users.sourceforge.net>
Date: Mon, 18 Aug 2025 14:08:34 +0000
Subject: Let's not break it with Tcl 8.5

---
 library/platform/platform.tcl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/library/platform/platform.tcl b/library/platform/platform.tcl
index 8e97b94..5a1a811 100644
--- a/library/platform/platform.tcl
+++ b/library/platform/platform.tcl
@@ -366,7 +366,7 @@ proc ::platform::patterns {id} {
 		    foreach {major minor} [split $v .] break
 
 		    set res {}
-		    if {$major gt 26} {
+		    if {$major ge 27} {
 			# Add x.0 to x.minor to patterns.
 			for {set j $minor} {$j >= 0} {incr j -1} {
 			    lappend res macosx${major}.${j}-${cpu}
-- 
cgit v0.12