@@ -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 {