Index: BL/Legacy/DCALG.cls.xml
===================================================================
diff -u -r65274 -r66468
--- BL/Legacy/DCALG.cls.xml	(.../DCALG.cls.xml)	(revision 65274)
+++ BL/Legacy/DCALG.cls.xml	(.../DCALG.cls.xml)	(revision 66468)
@@ -167,7 +167,7 @@
 		Set IngegevenLadeKenmerken.UitsparingBreedte1 = MatKenmerken.UitsparingData.UitsparingBreedteZ1
 		Set IngegevenLadeKenmerken.UitsparingBreedte2 = MatKenmerken.UitsparingData.UitsparingBreedteZ2
 		Set IngegevenLadeKenmerken.UitsparingPositie1 = MatKenmerken.UitsparingData.RugDeelBreedteX
-		Set IngegevenLadeKenmerken.UitsparingPositie2 = ..GeefInterneBreedteVanLade() - MatKenmerken.UitsparingData.RugDeelBreedteY - MatKenmerken.UitsparingData.UitsparingBreedteZ2
+		Set IngegevenLadeKenmerken.UitsparingPositie2 = ..GeefInterneBreedteVanLade(MatKenmerken) - MatKenmerken.UitsparingData.RugDeelBreedteY - MatKenmerken.UitsparingData.UitsparingBreedteZ2
 		Set IngegevenLadeKenmerken.UitsparingDiepte = MatKenmerken.UitsparingData.UitsparingDiepte
 		
 		If (MatKenmerken.LadeToepassing = ##class(DOM.PM.enu.MATLadeToepassing).SifonLade()) {