Index: client/lib/teapotclient0.1/teapotclient.tcl
==================================================================
--- client/lib/teapotclient0.1/teapotclient.tcl
+++ client/lib/teapotclient0.1/teapotclient.tcl
@@ -225,11 +225,11 @@
 	proc get_extensions {server {limitos "*"} {limitcpu "*"}} {
 		upvar ::teapotclient::osTeapotToLocal osTeapotToLocal
 		upvar ::teapotclient::cpuTeapotToLocal cpuTeapotToLocal
 
 		file mkdir $::teapotclient::pkgcachedir
-		set cachefile [file join $::teapotclient::pkgcachedir TEAPOTINFO]
+		set cachefile [file join $::teapotclient::pkgcachedir TEAPOTINFO-[::md5::md5 -hex $server]]
 		
 		set currtime [clock seconds]
 
 		if {[file exists $cachefile]} {
 			catch {

Index: client/teapot-client.tcl
==================================================================
--- client/teapot-client.tcl
+++ client/teapot-client.tcl
@@ -1,8 +1,8 @@
 #! /usr/bin/env tclsh
 
-set teapotservers [list teapot.activestate.com]
+set teapotservers [list teapot.activestate.com teapot.rkeene.org]
 
 lappend auto_path [file join [file dirname [info script]] lib]
 
 package require teapotclient
 
@@ -74,11 +74,14 @@
 			set cpu [lindex $argv 1]
 		}
 
 		puts "Extensions available for OS=$os, CPU=$cpu:"
 
-		array set exts [::teapotclient::get_extensions $teapotservers $os $cpu]
+		foreach teapotserver $teapotservers {
+			array set exts [::teapotclient::get_extensions $teapotserver $os $cpu]
+		}
+
 		foreach ext [lsort -dictionary [array names exts]] {
 			set extinfo $exts($ext)
 
 			set extvers [list]
 			foreach extinfoitem $extinfo {