Index: Sys/FOP/emSeqItemDocBaseWS.cls.xml
===================================================================
diff -u -r29059 -r53557
--- Sys/FOP/emSeqItemDocBaseWS.cls.xml	(.../emSeqItemDocBaseWS.cls.xml)	(revision 29059)
+++ Sys/FOP/emSeqItemDocBaseWS.cls.xml	(.../emSeqItemDocBaseWS.cls.xml)	(revision 53557)
@@ -119,6 +119,19 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwijderBewaardeStreams">
+<Implementation><![CDATA[
+	Write !,"VerwijderBewaardeStreams "_..ProptList
+	If (..ProptList.Count() > 0) {
+		Set ProptIterator = ##class(TECH.ListIterator).%New(..ProptList)
+		While ProptIterator.HasNext() {
+			#dim BeanRuntimeProperty As BL.Sys.FOP.BeanRuntimeProperty = ProptIterator.Next()
+			Do BeanRuntimeProperty.DeleteStreamViaGlobal()
+		}
+	}
+]]></Implementation>
+</Method>
+
 <Storage name="Default">
 <Type>%Library.CacheSerialState</Type>
 <Data name="emSeqItemState">