Index: tclpkcs11.c
==================================================================
--- tclpkcs11.c
+++ tclpkcs11.c
@@ -418,11 +418,11 @@
 }
 
 /*
  * Platform Specific Functions 
  */
-MODULE_SCOPE void *tclpkcs11_int_load_module(const char *pathname) {
+MODULE_SCOPE void *tclpkcs11_int_load_module(const char *pathname, Tcl_Interp *interp) {
 #if defined(TCL_INCLUDES_LOADFILE)
 	int tcl_rv;
 	Tcl_Obj *pathnameObj;
 	Tcl_LoadHandle *new_handle;
 
@@ -430,11 +430,11 @@
 
 	pathnameObj = Tcl_NewStringObj(pathname, -1);
 
 	Tcl_IncrRefCount(pathnameObj);
 
-	tcl_rv = Tcl_LoadFile(NULL, pathnameObj, NULL, 0, NULL, new_handle);
+	tcl_rv = Tcl_LoadFile(interp, pathnameObj, NULL, 0, NULL, new_handle);
 
 	Tcl_DecrRefCount(pathnameObj);
 
 	if (tcl_rv != TCL_OK) {
 		return(NULL);
@@ -530,11 +530,11 @@
 		Tcl_SetObjResult(interp, Tcl_NewStringObj("invalid pathname", -1));
 
 		return(TCL_ERROR);
 	}
 
-	handle = tclpkcs11_int_load_module(pathname);
+	handle = tclpkcs11_int_load_module(pathname, interp);
 	if (!handle) {
 		Tcl_SetObjResult(interp, Tcl_NewStringObj("unable to load", -1));
 
 		return(TCL_ERROR);
 	}