create procedure sys.sp_MSreleaseFixPALRoleAppLock
as
begin
    set nocount on

    declare @retcode smallint
    declare @lock_resource nvarchar(255)
    declare @DbPrincipal sysname

    /*
    ** Security Check.
    */
    exec @retcode = sys.sp_MSreplcheck_publish
    if @retcode<>0 or @@error<>0
        return 1

    select @retcode = 0

    -- use the dbowner role
    select @DbPrincipal = N'db_owner'
    select @lock_resource = N'MSinternal_repl_Fix_PAL_' + convert(nvarchar(6), db_id())

    exec @retcode = sp_releaseapplock @Resource = @lock_resource, @LockOwner = N'Session', @DbPrincipal = @DbPrincipal
    if @@error<>0 or @retcode<0
        return 1
    else
        return 0
end