Index: vhConsistency/ConsistencyCheck.cls.xml
===================================================================
diff -u -r1264 -r1307
--- vhConsistency/ConsistencyCheck.cls.xml	(.../ConsistencyCheck.cls.xml)	(revision 1264)
+++ vhConsistency/ConsistencyCheck.cls.xml	(.../ConsistencyCheck.cls.xml)	(revision 1307)
@@ -13,13 +13,21 @@
 <Type>%String</Type>
 </Property>
 
+<Property name="J">
+<Type>%String</Type>
+</Property>
+
 <Method name="VoerUit">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>ToonAlles:%Boolean=0,StuurMail:%Boolean=1</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-		Set ConsistencyCheck = ..%New()
-		Do ConsistencyCheck.VoerAlleChecksUit(ToonAlles,StuurMail)
+	Set J = $$%J^vhRtn1()
+	Set ^HULP(J)=""
+	Set ConsistencyCheck = ..%New()
+	Set ConsistencyCheck.J = J
+	Do ConsistencyCheck.VoerAlleChecksUit(ToonAlles,StuurMail)
+	Kill ^HULP(J)
 ]]></Implementation>
 </Method>
 
@@ -38,11 +46,11 @@
 			}
 			Set $ZTRAP = ""
 			Continue
-ErrHandling Set CheckGefaald = 1 Set ..Meldingen = ..Meldingen _ Classname_" : GEFAALD "_$C(13,10,9)_$ZE_$C(13,10)
+ErrHandling Set CheckGefaald = 1 Set ^HULP(..J) = ^HULP(..J) _ Classname_" : GEFAALD "_$C(13,10,9)_$ZE_$C(13,10)
 		}
 		
 		Set Hoofding = "Consistency Checks : "_$C(13,10)_"--------------------"_$C(13,10)_$C(13,10)
-		Set Boodschap = Hoofding_..Meldingen
+		Set Boodschap = Hoofding_^HULP(..J)
 		If (CheckGefaald || ToonAlles)
 		{
 			If ToonAlles w Boodschap,!	
@@ -77,12 +85,12 @@
 		
 		If ('Check.SkipCheck){
 			If (Resultaat '= $$$OK){
-				Set ..Meldingen = ..Meldingen_Check.GeefMelding()
+				Set ^HULP(..J) = ^HULP(..J)_Check.GeefMelding()
 			}ElseIf(ToonAlles && Resultaat){
-				Set ..Meldingen = ..Meldingen_Classname_" : OK"_$C(13,10)	
+				Set ^HULP(..J) = ^HULP(..J)_Classname_" : OK"_$C(13,10)	
 			}
 		}Else{
-			Set ..Meldingen = ..Meldingen_Classname_" : SKIPPED"_$C(13,10)
+			Set ^HULP(..J) = ^HULP(..J)_Classname_" : SKIPPED"_$C(13,10)
 		}
 		Quit Resultaat
 ]]></Implementation>