Index: WS/TBX/GroepOrder.cls.xml
===================================================================
diff -u -r480 -r492
--- WS/TBX/GroepOrder.cls.xml	(.../GroepOrder.cls.xml)	(revision 480)
+++ WS/TBX/GroepOrder.cls.xml	(.../GroepOrder.cls.xml)	(revision 492)
@@ -109,7 +109,7 @@
 	set itOrders = ##class(TECH.ListIterator).%New(..Orders)
 	while itOrders.HasNext() {
 		set Order  = itOrders.Next()
-		do Order.BulkSetAll(NewValue)
+		Set Status = Order.BulkSetAll(NewValue)
 	}
 	Quit $$$OK
 ]]></Implementation>