Index: Sys/FOP/emSeqItem.cls.xml
===================================================================
diff -u -r29059 -r53555
--- Sys/FOP/emSeqItem.cls.xml	(.../emSeqItem.cls.xml)	(revision 29059)
+++ Sys/FOP/emSeqItem.cls.xml	(.../emSeqItem.cls.xml)	(revision 53555)
@@ -55,6 +55,23 @@
 <Parameter name="TRUNCATE" value="1"/>
 </Property>
 
+<Method name="%OnDetermineClass">
+<Description><![CDATA[
+This callback method is invoked by the <METHOD>%Open</METHOD> method to 
+determine the classname of the object specified by <VAR>oid</VAR>.]]></Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec><![CDATA[oid:%ObjectIdentity,&class:%String]]></FormalSpec>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set class=$classname()
+	If (class = "Sys.FOP.emSeqItem") && ($LG($LG(oid,1),4) = "DocBase") {
+		Set class = "Sys.FOP.emSeqItemDocBaseWS"
+	}
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="UpdateStatus">
 <Description>
 Zie ##class(BL.Sys.FOP.Data).TSeqItemUpdateStatus()</Description>
@@ -83,6 +100,11 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwijderBewaardeStreams">
+<Description>
+Wordt opgeroepen vanuit de opkuis-routine (BL.Sys.Clean)</Description>
+</Method>
+
 <Storage name="Default">
 <Type>%Library.CacheSerialState</Type>
 <State>emSeqItemState</State>