From c332bcd2aa81a4aac5d09b97a4adf7459ee14c53 Mon Sep 17 00:00:00 2001
From: "dgp@users.sourceforge.net" <dgp>
Date: Mon, 25 Jun 2012 16:19:42 +0000
Subject: Repair Claim/Disclaim imbalance

---
 generic/tclIOUtil.c | 1 +
 1 file changed, 1 insertion(+)

diff --git a/generic/tclIOUtil.c b/generic/tclIOUtil.c
index dccbeb5..b1b8961 100644
--- a/generic/tclIOUtil.c
+++ b/generic/tclIOUtil.c
@@ -4390,6 +4390,7 @@ Tcl_FSGetFileSystemForPath(
     Claim();
 
     if (TclFSEnsureEpochOk(pathPtr, &retVal) != TCL_OK) {
+	Disclaim();
 	return NULL;
     }
 
-- 
cgit v0.12