Index: appfsd.c
==================================================================
--- appfsd.c
+++ appfsd.c
@@ -1546,10 +1546,12 @@
 
 	interp = appfs_TclInterp();
 	if (interp == NULL) {
 		return(-EIO);
 	}
+
+	appfs_call_libtcl(Tcl_Preserve(interp);)
 
 	tcl_ret = appfs_Tcl_Eval(interp, 2, "::appfs::unlinkpath", path);
 	if (tcl_ret != TCL_OK) {
 		APPFS_DEBUG("::appfs::unlinkpath(%s) failed.", path);
 		appfs_call_libtcl(