Modified appfsd.tcl from [985d2df621] to [ced6c30241].

   103    103   		return -code error "Unable to download"
   104    104   	}
   105    105   }
   106    106   
   107    107   namespace eval ::appfs {
   108    108   	variable cachedir "/tmp/appfs-cache"
   109    109   	variable ttl 3600
   110         -	variable nttl 60
          110  +	variable nttl 3600
   111    111   	variable trusted_cas [list]
   112    112   	variable platform [::platform::generic]
   113    113   
   114    114   	proc _hash_sep {hash {seps 4}} {
   115    115   		for {set idx 0} {$idx < $seps} {incr idx} {
   116    116   			append retval "[string range $hash [expr {$idx * 2}] [expr {($idx * 2) + 1}]]/"
   117    117   		}