Index: generic/tclFCmd.c
==================================================================
--- generic/tclFCmd.c
+++ generic/tclFCmd.c
@@ -401,10 +401,18 @@
 		    errfile = objv[i];
 		}
 	    }
 	} else {
 	    result = Tcl_FSDeleteFile(objv[i]);
+            if (result != TCL_OK && errno == ENOENT) {
+                /*
+                 * The file was already deleted before we could do it.
+                 * Deleting a non-existent file is not an error.
+                 */
+
+                result = TCL_OK;
+            }
 	}
 
 	if (result != TCL_OK) {
 	    result = TCL_ERROR;
 

