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->legacyResult != NULL) {
	    /*
	     * A call to Tcl_InitStubs() determined the caller extension and this
	     * interp are incompatible in their stubs mechanisms, and recorded the
	     * error in the oldest legacy place we have to do so.
	     */
	    Tcl_SetObjResult(interp, Tcl_NewStringObj(iPtr->legacyResult, -1));
	} 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.
     *