Index: cspBasis/GAProdDfls.cls.xml
===================================================================
diff -u -r621 -r622
--- cspBasis/GAProdDfls.cls.xml	(.../GAProdDfls.cls.xml)	(revision 621)
+++ cspBasis/GAProdDfls.cls.xml	(.../GAProdDfls.cls.xml)	(revision 622)
@@ -447,14 +447,14 @@
 	. . Set:(DC'?1(1"S",1"I",1"A")) DC=$S(DCM="I":"I", DCM="A":"A", 1:"S")
 	. . Set lbDFL=..GetKlantDefaultsRAW("MTN","*",DC,"*")
 	
-	Quit ..GeefAangepasteOpgehaldeDefaults(lbDFL, Type)
+	Quit ..GeefAangepasteOpgehaldeDefaults(lbDFL, Type, DC)
 ]]></Implementation>
 </Method>
 
 <Method name="GeefAangepasteOpgehaldeDefaults">
 <Description>
 Method naam GeefAangepasteOpgehaaldeDefaults is langer dan 31 tekens  :-( </Description>
-<FormalSpec>lbDFL:%String,Type:%String</FormalSpec>
+<FormalSpec>lbDFL:%String,Type:%String,DC:%String</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%String</ReturnType>
@@ -465,6 +465,7 @@
 		Set ZetDefaultVerpakkingOpProbox = (..sDomVERW = ##class(APPS.TBXWeb.enu.TBXHandel).SFS())
 		 ;s ZetDefaultVerpakkingOpProbox = 1   ; Tijdelijk, om te kunnen testen op VH-domein (en andere) 
 		If ZetDefaultVerpakkingOpProbox {
+			Set:(lbDFL="") lbDFL = $LB($LB(DC,"*",""))
 			For i=1:1:$LL(lbDFL) {
 				Set ListItem = $LI(lbDFL,i)
 				Set pdlMatenDfl = $LG(ListItem,3)