Index: tclFCmd.c
===================================================================
RCS file: /cvsroot/tcl/tcl/generic/tclFCmd.c,v
retrieving revision 1.33
diff -u -r1.33 tclFCmd.c
--- tclFCmd.c	9 Jun 2005 16:24:47 -0000	1.33
+++ tclFCmd.c	12 Jun 2005 14:14:34 -0000
@@ -264,9 +264,7 @@
 	    } else if (errno != ENOENT) {
 		errfile = target;
 		goto done;
-	    }
-	    
-	    if (Tcl_FSCreateDirectory(target) != TCL_OK) {
+	    } else if (Tcl_FSCreateDirectory(target) != TCL_OK) {
 		/* 
 		 * Create might have failed because of being in a race
 		 * condition with another process trying to create the
