Index: APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/RequestComposer.cls.xml
===================================================================
diff -u -r35736 -r35737
--- APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/RequestComposer.cls.xml	(.../RequestComposer.cls.xml)	(revision 35736)
+++ APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/RequestComposer.cls.xml	(.../RequestComposer.cls.xml)	(revision 35737)
@@ -15,6 +15,9 @@
 		#dim ColliOpPallet As APPS.TRANSP.Stapeling.dto.ColliOpPallet = CollisOpPalletIterator.Next()
 		#dim cubeiqPackage As APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.XML.Request.package = ##class(APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.XML.Request.package).%New()
 		Do Requestcubeiq.packages.Insert(cubeiqPackage)
+
+		#dim cubeiqPackageToLoad As APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.XML.Request.packagetoload = ##class(APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.XML.Request.packagetoload).%New()
+		Do Requestcubeiq.packagestoload.Insert(cubeiqPackageToLoad)
 	}
 	
 	Quit Requestcubeiq
Index: vhUnitTest/APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/RequestComposer/Compose/Test.cls.xml
===================================================================
diff -u -r35736 -r35737
--- vhUnitTest/APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/RequestComposer/Compose/Test.cls.xml	(.../Test.cls.xml)	(revision 35736)
+++ vhUnitTest/APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/RequestComposer/Compose/Test.cls.xml	(.../Test.cls.xml)	(revision 35737)
@@ -24,6 +24,17 @@
 	Do $$$AssertEquals(cubeiqrequest.packages.Count(),1)
 ]]></Implementation>
 </Method>
+
+<Method name="Test : Compose geeft cubeiq request met 1 PackageToLoad weer">
+<Implementation><![CDATA[
+	#dim CollisOpPallet As APPS.TRANSP.Stapeling.dto.CollisOpPallet = ##class(vhTest.Utils.APPS.TRANSP.Stapeling.dto.CollisOpPallet).GeefCollisOpPallet()
+	
+	#dim RequestComposer As APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.RequestComposer = ##class(APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.RequestComposer).%New()
+	#dim cubeiqrequest As APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.XML.Request.cubeiq = RequestComposer.Compose(CollisOpPallet)
+	
+	Do $$$AssertEquals(cubeiqrequest.packagestoload.Count(),1)
+]]></Implementation>
+</Method>
 </Class>