Index: client/examples/example-1.tcl
==================================================================
--- client/examples/example-1.tcl
+++ client/examples/example-1.tcl
@@ -4,9 +4,9 @@
 
 		package require teapotclient
 
                 puts "The following extensions are available:"
                 foreach {extension extensioninfo} [::teapotclient::get_extensions \
-                                                   [list teapot.activestate.com] \
+                                                   teapot.activestate.com \
                                                    {*} {*}] {
                         puts "  $extension [join $extensioninfo {, }]"
                 }