Index: APPS/TRANSP/GLS/GLSv1/impl/GLSEigenschappen.cls.xml
===================================================================
diff -u -r50495 -r55232
--- APPS/TRANSP/GLS/GLSv1/impl/GLSEigenschappen.cls.xml	(.../GLSEigenschappen.cls.xml)	(revision 50495)
+++ APPS/TRANSP/GLS/GLSv1/impl/GLSEigenschappen.cls.xml	(.../GLSEigenschappen.cls.xml)	(revision 55232)
@@ -181,8 +181,9 @@
 <FormalSpec>VerzendWijze:APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze</FormalSpec>
 <Implementation><![CDATA[
 	#dim HuidigeRange As %Integer = ^APPS.TRANSP.GLS.Bericht.Range(VerzendWijze)
-	If $Data(^APPS.TRANSP.GLS.Bericht.Range(VerzendWijze,HuidigeRange+1)) {
-		Set ^APPS.TRANSP.GLS.Bericht.Range(VerzendWijze) = ^APPS.TRANSP.GLS.Bericht.Range(VerzendWijze) + 1
+	#dim NieuweRangeId As %Integer = HuidigeRange + 1
+	If $Data(^APPS.TRANSP.GLS.Bericht.Range(VerzendWijze,NieuweRangeId)) {
+		Set ^APPS.TRANSP.GLS.Bericht.Range(VerzendWijze) = NieuweRangeId
 	} Else {
 		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Geen nieuwe GLS range beschikbaar voor verzendwijze '"_VerzendWijze_"'. Huidge range = '"_HuidigeRange_"'."))
 	}