From 5b2718a49ed67a4ac9378b222b1cab87cf55856b Mon Sep 17 00:00:00 2001
From: dgp <dgp@users.sourceforge.net>
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