Index: appfs.tcl
==================================================================
--- appfs.tcl
+++ appfs.tcl
@@ -20,11 +20,11 @@
 			set key [_hash_sep $key]
 		}
 
 		set file [file join $::appfs::cachedir $key]
 
-		file mkdir -- [file dirname $file]
+		file mkdir [file dirname $file]
 
 		if {![file exists $file]} {
 			set tmpfile "${file}.new"
 
 			set fd [open $tmpfile "w"]