Index: vhConsistency/Check.cls.xml
===================================================================
diff -u -r29059 -r29782
--- vhConsistency/Check.cls.xml	(.../Check.cls.xml)	(revision 29059)
+++ vhConsistency/Check.cls.xml	(.../Check.cls.xml)	(revision 29782)
@@ -10,6 +10,11 @@
 <Type>%String</Type>
 </Parameter>
 
+<Parameter name="HeeftAutomatischeDataCorrectie">
+<Type>%Boolean</Type>
+<Default>0</Default>
+</Parameter>
+
 <Property name="SkipCheck">
 <Type>%Boolean</Type>
 <InitialExpression>0</InitialExpression>
@@ -52,6 +57,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="MagUitvoerenTweedeRun">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit (..#HeeftAutomatischeDataCorrectie = $$$True)
+]]></Implementation>
+</Method>
+
 <Method name="VoegToeFoutmelding">
 <Final>1</Final>
 <FormalSpec>Melding:%String</FormalSpec>
Index: vhConsistency/ConsistencyCheck.cls.xml
===================================================================
diff -u -r29059 -r29782
--- vhConsistency/ConsistencyCheck.cls.xml	(.../ConsistencyCheck.cls.xml)	(revision 29059)
+++ vhConsistency/ConsistencyCheck.cls.xml	(.../ConsistencyCheck.cls.xml)	(revision 29782)
@@ -105,11 +105,19 @@
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	Do ##class(vhLib.Logger).%New("vhConsistencyCheck").Info(ClassName,"Start")
-	#dim Check As vhConsistency.Check = $zobjclassmethod(ClassName,"%New")		
+	#dim Check As vhConsistency.Check = $zobjclassmethod(ClassName,"%New")
 	#dim Resultaat As %Status = $$$OK
 	
 	If ('Check.SkipCheck){
 		Set Resultaat = Check.VoerUit()
+		
+		If (Resultaat '= $$$OK) && (Check.MagUitvoerenTweedeRun()) {
+			Do ..LogGefaaldBijEersteRun(Check)
+			Write:(ToonAlles) !,"GEFAALD bij de eerste run : zie Logging voor details."
+			Write:(ToonAlles) !,"Tweede run ... ",!
+			Set Check = $zobjclassmethod(ClassName,"%New")
+			Set Resultaat = Check.VoerUit()
+		}
 		If (Resultaat '= $$$OK){
 			Do ..Meldingen.CopyFrom(Check.GeefMelding())
 		}ElseIf(ToonAlles && Resultaat){
@@ -123,6 +131,19 @@
 	Quit Resultaat
 ]]></Implementation>
 </Method>
+
+<Method name="LogGefaaldBijEersteRun">
+<FormalSpec>Check:vhConsistency.Check</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	#dim ClassName As %String = Check.%ClassName($$$True)
+	Set Meldingen = ##class(%GlobalCharacterStream).%New()
+	Do Meldingen.WriteLine("ConsistencyCheck '"_ClassName_"' : GEFAALD bij de eerste run.")
+	Do Meldingen.CopyFrom(Check.GeefMelding())
+	Do ##class(vhLib.Logger).%New("vhConsistencyCheck").Warning(ClassName,Meldingen)
+]]></Implementation>
+</Method>
 </Class>