proc versionEncoded {versionString} {
		set output 0

		if {$versionString eq "trunk"} {
			return [versionEncoded "255.255.255"]
		}

		if {$versionString eq "core-8-7-a5-rc"} {
			return [versionEncoded "8.6.254"]
		}

		if {$versionString eq "core-8-7a3"} {
			return [versionEncoded "8.6.253"]
		}

		foreach element [lrange [split $versionString .] 0 2] {
			if {![string is integer -strict $element]} {

	set tcl_versions(8.6.10) 8.6.10
	set tcl_versions(8.6.11) 8.6.11
	set tcl_version_list [lsort -dictionary [array names tcl_versions]]
	set tcl_version_selected [lindex $tcl_version_list end]

	set tcl_versions(fossil_trunk) "Fossil Trunk Tip"
	set tcl_versions(fossil_core-8-7a3) "Tcl 8.7a3"
	set tcl_versions(fossil_core-8-7-a5-rc) "Tcl 8.7a5"
	set tcl_version_list [lsort -dictionary [array names tcl_versions]]

	# Platforms
	set platforms(android-arm) "Android/ARM"
	set platforms(freebsd-amd64) "FreeBSD/amd64"
	set platforms(hpux-hppa64) "HP-UX/PA-RISC 2.0"
	set platforms(aix-ppc) "AIX/POWER"

			return(versionEncoded("255.255.255"));
		}

		if (versionString === "core-8-7a3") {
			return(versionEncoded("8.6.253"));
		}

		if (versionString === "core-8-7-a5-rc") {
			return(versionEncoded("8.6.254"));
		}
		try {
			versionString.split(".").slice(0, 3).forEach(function(element) {
				element = parseInt(element);
				if (isNaN(element)) {
					throw new Error("Invalid version string");
				}