Fehlermeldung bei öffnen eines Dokuments

Hallo Leute,

heute komm ich mal wieder mit einem (zumindest für mich) außergewöhnlichem Problem...

In einer selbstgestrickten Anwendung werden verschiedene Bearbeitungsschritte zu einem Vorgang festgehalten. Diese Kontrollen werden unter anderem auch mit Bildschirmkopien aus anderen Anwendungen dokumentiert. Nun ist der Fall aufgetreten, das zu einem Vorgang sehr viele Bilder einzufügen waren.
Wenn jetzt ein Anwender versucht, dieses Dokument zu öffnen (egal ob lesend oder schreibend) kommt die Fehlermeldung "Maximale Anzahl der Speichersegmente, die Notes unterstützen kann, wurde überschritten."
Größe des Dokuments ist ca. 5,5 MB.

Das Problem ist jetzt, das die Bearbeitung des Dokuments noch nicht abgeschlossen ist und der ein oder andere noch an das Dok dran muss. Wie kriege ich es hin, das Dok wieder zu öffnen bzw. bearbeitbar zu machen? In der Hilfe hab ich dazu leider nichts gefunden.

Vielen Dank für eure Hilfe!

OS: WinNT 4.0
Domino 6.52
Notes 6.52

Hallo Leute,

vielen Dank für eure Hilfe!
Muss ich bei dem Compact noch irgendwelche Parameter mitgeben?

So, habe jetzt erst einen compact -b gemacht. Der war aber so schnell beendet das ich gar nicht glaube, das er was gemacht hat. Also den compact -B direkt hinterher. Da hát er auch was gemacht. Siehe da, die (ursprüngliche) Fehlermeldung ist weg. Dafür neues Problem: Jetzt bringt er mir neue Fehlermeldung (s. Anhang) und öffnet das Dokument trotzdem nicht...
Was kann ich jetzt noch machen?

Hallo Taurec,

erstmal Gratulation zu der überschrittenen 5000er Marke...

Zu Deinen Fragen:
Server 6.52
Client 6.52
ODS 43
Im Event OnLoad steht folgendes:

Sub Onload(Source As Notesuidocument)
	Dim eval As Variant	

	eval = Evaluate("@Name([CN]; @UserName)")

	If source.FieldGetText("status") = "4,2" Then
		Dim ws As New NotesUIWorkspace
		Dim doc As NotesDocument
		Set doc = source.Document
		If source.FieldGetText("wpb_zuruck_nam") <> eval(0) Then
			If source.FieldGetText("aktuell") <> "1" Then				
				source.EditMode = True
				Call source.FieldSetText("aktuell", "1")
				Call source.FieldSetText("kont_aktuell", "")
				Call source.Refresh
				Call source.Refresh
				Call source.Save
				Call source.Close(True)
				Call ws.EditDocument(False, doc, , , True)
			End If
		Else
			If source.FieldGetText("kont_aktuell") <> "1" Then				
				source.EditMode = True
				Call source.FieldSetText("aktuell", "")
				Call source.FieldSetText("kont_aktuell", "1")
				Call source.Refresh
				Call source.Refresh
				Call source.Save
				Call source.Close(True)
				Call ws.EditDocument(False, doc, , , True)
			End If
		End If
	End If
End Sub

Also alles nur altbekannte Funktionalitäten, die in allen anderen Dokumenten auch problemlos laufen.
Ich habe die Anwendung auch selbst auf meinem Client (seinerzeit 6.02) programmiert.

Im Queryopen steht gar nichts. Den ganzen Code hab ich im Onload untergebracht

Das Problem hat sich witzigerweise über Nacht vonn alleine erledigt. Manchmal muss man eine Sache wohl einfach aussitzen...
Vielen Dank für eure Hilfe!