Tcl_SetErrorCode(interp, "TCL", "OPERATION", "LOAD", "ENTRYPOINT",
		    NULL);
	    code = TCL_ERROR;
	    goto done;
	}
	code = pkgPtr->initProc(target);
    }

    /*
     * Test for whether the initialization failed. If so, transfer the error
     * from the target interpreter to the originating one.
     */

    if (code != TCL_OK) {
	Interp *iPtr = (Interp *) target;
	if (iPtr->result != NULL && iPtr->result[0] != '\0') {
	    /* We have an Tcl 8.x extension with incompatible stub table. */
	    Tcl_Obj *obj = Tcl_NewStringObj(iPtr->result, -1);
	    Tcl_SetObjResult(interp, obj);
	} else {
	Tcl_TransferResult(target, code, interp);
	    Tcl_TransferResult(target, code, interp);
	}
	goto done;
    }

    /*
     * Record the fact that the package has been loaded in the target
     * interpreter.
     *