Index: DOM/PM/Maatwerk/Lade/impl/CorpusBreedteBepaler.cls.xml
===================================================================
diff -u -r29059 -r54643
--- DOM/PM/Maatwerk/Lade/impl/CorpusBreedteBepaler.cls.xml	(.../CorpusBreedteBepaler.cls.xml)	(revision 29059)
+++ DOM/PM/Maatwerk/Lade/impl/CorpusBreedteBepaler.cls.xml	(.../CorpusBreedteBepaler.cls.xml)	(revision 54643)
@@ -3,6 +3,11 @@
 <Class name="DOM.PM.Maatwerk.Lade.impl.CorpusBreedteBepaler">
 <Super>TECH.RegisteredObject,DOM.PM.Maatwerk.Lade.CorpusBreedteBepaler</Super>
 
+<Parameter name="MinTolerantieTbxInMM">
+<Type>%Integer</Type>
+<Default>1</Default>
+</Parameter>
+
 <Method name="GeefCorpusBreedte">
 <FormalSpec>Kenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,InterneBreedte:%Decimal=""</FormalSpec>
 <ReturnType>%Decimal</ReturnType>
@@ -15,6 +20,13 @@
 	}
 	#dim BreedteVanEventueleWand = $Select( CorpusBreedteWaarden.IsBinnenbreedte: 0, 1: ( 2 * CorpusBreedteWaarden.WandDikte ) )
 	#dim CorpusBreedte As %Double = CorpusBreedteWaarden.InterneBreedte + BreedteVanEventueleWand + ( CorpusBreedteWaarden.OpvullijstLinksInMM + CorpusBreedteWaarden.OpvullijstRechtsInMM )
+	
+	If Kenmerken.%Extends("DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken") {
+		If $$$Not(CorpusBreedteWaarden.IsBinnenbreedte) && (CorpusBreedteWaarden.WandDikte > 0) {
+			Set CorpusBreedte = CorpusBreedte + ..#MinTolerantieTbxInMM
+		}
+	}
+	
 	quit CorpusBreedte
 ]]></Implementation>
 </Method>