Index: APPS/TRANSP/UPS/impl/Rate/ResponseConverteerder.cls.xml
===================================================================
diff -u -r32701 -r33038
--- APPS/TRANSP/UPS/impl/Rate/ResponseConverteerder.cls.xml	(.../ResponseConverteerder.cls.xml)	(revision 32701)
+++ APPS/TRANSP/UPS/impl/Rate/ResponseConverteerder.cls.xml	(.../ResponseConverteerder.cls.xml)	(revision 33038)
@@ -9,8 +9,9 @@
 <Implementation><![CDATA[
 	#dim OfferteData As APPS.TRANSP.OfferteService.dto.OfferteData = ##class(APPS.TRANSP.OfferteService.dto.OfferteData).%New()
 
-	For Item=1:1:Response.RatedShipment.Count() {
-		#dim RatedShipment As APPS.TRANSP.UPS.impl.Rate.Service.rate.RatedShipmentType = Response.RatedShipment.GetAt(Item)
+	set RatedShipmentIterator = ##class(TECH.ListIterator).%New(Response.RatedShipment)
+	while RatedShipmentIterator.HasNext() {
+		#dim RatedShipment As APPS.TRANSP.UPS.impl.Rate.Service.rate.RatedShipmentType = RatedShipmentIterator.Next()
 
 		#dim OfferteItem As APPS.TRANSP.OfferteService.dto.OfferteItem = ##class(APPS.TRANSP.OfferteService.dto.OfferteItem).%New()