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 {, }]" }