Index: BL/Sys/FOP/BeanRuntimeProperty.cls.xml
===================================================================
diff -u -r53556 -r56411
--- BL/Sys/FOP/BeanRuntimeProperty.cls.xml	(.../BeanRuntimeProperty.cls.xml)	(revision 53556)
+++ BL/Sys/FOP/BeanRuntimeProperty.cls.xml	(.../BeanRuntimeProperty.cls.xml)	(revision 56411)
@@ -97,6 +97,41 @@
 ]]></Implementation>
 </Method>
 
+<Method name="SwizzleStream">
+<Implementation><![CDATA[
+	Quit:($IsObject(..StreamPropertyValue))
+
+	#dim StreamIdToOpen As %String = ""
+	#dim StreamIdInStorage As %String = ..StreamPropertyValueGetObjectId()
+
+	If $L(StreamIdInStorage) && ($E(StreamIdInStorage,1) = $C(0)) {
+		Set StreamIdToOpen = $LG($E(StreamIdInStorage,2,*), 1)
+	}
+	
+	If $L(StreamIdToOpen) {
+		Set ..StreamPropertyValue = ##class(%Library.GlobalBinaryStream).%New()
+		#dim Status As %Status = ..StreamPropertyValue.OpenStream(StreamIdToOpen)
+		Do ##class(TECH.Exceptions.StatusException).ThrowIndienNietOK(Status)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="DeleteStream">
+<Implementation><![CDATA[
+	#define ManageStatus(%code)   Do ##class(TECH.Exceptions.StatusException).ThrowIndienNietOK(%code)
+	
+	If ($IsObject(..StreamPropertyValue)) {
+		;$$$ManageStatus(..StreamPropertyValue.SaveStream())
+
+		Write !,"Stream opkuis: "_%this_" - "_$$LCVT^vhLib(..StreamPropertyValue.%Id())_ " : "_..StreamPropertyValue.Size_"."
+		$$$ManageStatus(..StreamPropertyValue.Clear())
+		;$$$ManageStatus(..StreamPropertyValue.DeleteStream())
+		
+		Set ..StreamPropertyValue = ""   ; Force unswizzle object
+	}
+]]></Implementation>
+</Method>
+
 <Method name="XMLExport">
 <Description><![CDATA[
 Serialize an XML enabled class as an XML document and write it to the current device.<p>]]></Description>
Index: Sys/FOP/emSeqItemDocBaseWS.cls.xml
===================================================================
diff -u -r53557 -r56411
--- Sys/FOP/emSeqItemDocBaseWS.cls.xml	(.../emSeqItemDocBaseWS.cls.xml)	(revision 53557)
+++ Sys/FOP/emSeqItemDocBaseWS.cls.xml	(.../emSeqItemDocBaseWS.cls.xml)	(revision 56411)
@@ -127,6 +127,8 @@
 		While ProptIterator.HasNext() {
 			#dim BeanRuntimeProperty As BL.Sys.FOP.BeanRuntimeProperty = ProptIterator.Next()
 			Do BeanRuntimeProperty.DeleteStreamViaGlobal()
+			;Do BeanRuntimeProperty.SwizzleStream()
+			;Do BeanRuntimeProperty.DeleteStream()
 		}
 	}
 ]]></Implementation>