@@ -46,11 +46,15 @@ } exit 1 } } "list" { - set os [string tolower $tcl_platform(os)] + if {$tcl_platform(platform) == "unix"} { + set os [string tolower $tcl_platform(os)] + } else { + set os [string tolower $tcl_platform(platform)] + } set cpu [string tolower $tcl_platform(machine)] if {[llength $argv] > 0} { set os [lindex $argv 0] } if {[llength $argv] > 1} {