@@ -46,12 +46,12 @@
 			}
 			exit 1
 		}
 	}
 	"list" {
-		set os "*"
-		set cpu "*"
+		set os [string tolower $tcl_platform(os)]
+		set cpu [string tolower $tcl_platform(machine)]
 		if {[llength $argv] > 0} {
 			set os [lindex $argv 0]
 		}
 		if {[llength $argv] > 1} {
 			set cpu [lindex $argv 1]