Index: client/lib/teapotclient0.1/teapotclient.tcl
==================================================================
--- client/lib/teapotclient0.1/teapotclient.tcl
+++ client/lib/teapotclient0.1/teapotclient.tcl
@@ -35,10 +35,14 @@
 			file mkdir $::env(HOME)
 		}
 
 		return $::env(HOME)
 	}
+
+	proc __unzip {dir file} {
+		exec unzip -d $dir -n -qq $urlcachefile
+	}
 
 	set pkgcachedir [file join [__get_homedir] ".teapot-client" "cachedir"]
 
         # Conversions from Teapot-style names to local ones
 	set osTeapotToLocal(tcl) *
@@ -102,11 +106,11 @@
 
 			set retarr($extension) [list $ver $arch $server]
 			switch -regexp -- [::fileutil::fileType $urlcachefile] {
 				"(^| )zip($| )" {
 					catch {
-						exec unzip -d $pkgdir -n -qq $urlcachefile
+						__unzip $pkgdir $urlcachefile
 					}
 
 					# Process $pkgdir/teapot.txt
 					set teapot [file join $pkgdir teapot.txt]
 					if {[file exists $teapot]} {