"nicht berechtigt" bei doc.Unlock() nach dem Server-Upgrade auf 9.0.1

[Bruce Willis]

Hallo,

gestern haben wir den Server auf Version 9.0.1 erhoben.
Beim Schließen eines Dokuments bekommen jetzt die User die Fehlermeldung "Sie sind zur Durchführung dieser Operation nicht berechtigt". Falls der User nur Autor ist.
Und das Dok bleibt gesperrt.

In QueryClose steht:

Code

REM Check if locking is not enabled und dann evtl. unlocken
	Dim session As New NotesSession
	Dim db As NotesDatabase
	Set db = session.CurrentDatabase

	If Not db.IsDocumentLockingEnabled Then
		Print "Document locking not enabled"
	Else
		If doc.LockHolders(0) <> "" Then
			'Print session.UserName	'30.09.2013
			If session.UserName = doc.~$Writers(0) Then
				Call doc.UnLock()   
				Print "Document was locked"
			Else
				Print "Document is locked by " & doc.~$Writers(0)
			End If
		Else
			Print "Document was not locked"
		End If
	End If

Was könnte man tun?

Gruß
Leo