Index: client/lib/teapotclient0.1/teapotclient.tcl
==================================================================
--- client/lib/teapotclient0.1/teapotclient.tcl
+++ client/lib/teapotclient0.1/teapotclient.tcl
@@ -13,23 +13,28 @@
 		foreach checkenv [list TMPDIR TEMP TMP TEMPDIR] {
 			if {[info exists ::env($checkenv)]} {
 				return $::env($checkenv)
 			}
 		}
+
 		return "/tmp"
 	}
 
 	proc __get_homedir {} {
 		if {[info exists ::env(HOME)]} {
-			return $::env(HOME)
+			if {[file exists $::env(HOME)]} {
+				return $::env(HOME)
+			}
 		}
 
 		catch {
 			set ::env(HOME) [file normalize ~]
 		}
 		if {[info exists ::env(HOME)]} {
-			return $::env(HOME)
+			if {[file exists $::env(HOME)]} {
+				return $::env(HOME)
+			}
 		}
 
 		set ::env(HOME) [file join [__get_tmpdir] FAKEHOME_$tcl_platform(user)]
 		catch {
 			file mkdir $::env(HOME)