Index: tinyhttpd.tcl
===================================================================
--- tinyhttpd.tcl	(revision 2714)
+++ tinyhttpd.tcl	(working copy)
@@ -741,6 +741,8 @@
 	    return
 	}
 	Debug 2 "\t abspath=$abspath"
+    } else {
+        set abspath $apath
     }
     
     if {[file isdirectory $apath]} {