Ticket #25592: patch-port.tcl.diff

port.tcl

@@ -415 +415 @@
     array set b_ $b
     set namecmp [string compare -nocase $a_(name) $b_(name)]
     if {$namecmp != 0} {
-        return $namecmp
+        if {$a_(name) eq [lindex [lsort -dictionary [list $a_(name) $b_(name)]] 0]} {
+            return -1
+        }
+        return 1
     }
     set avr_ [split $a_(version) "_"]
     set bvr_ [split $b_(version) "_"]