Index: Tools/Test/VerwachteInnerExceptie.cls.xml
===================================================================
diff -u -r2357 -r2358
--- Tools/Test/VerwachteInnerExceptie.cls.xml	(.../VerwachteInnerExceptie.cls.xml)	(revision 2357)
+++ Tools/Test/VerwachteInnerExceptie.cls.xml	(.../VerwachteInnerExceptie.cls.xml)	(revision 2358)
@@ -7,22 +7,20 @@
 <FormalSpec><![CDATA[Exceptie:TECH.Exceptions.Exception,&Message:%String]]></FormalSpec>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
-	#dim Resultaat As %Boolean = $$$True
+	#dim IsGeldig As %Boolean = $$$False
 	#dim Iterator As TECH.Iterator = ##class(TECH.ListIterator).%New(Exceptie.GeefInnerExcepties())
 	
-	While (Iterator.HasNext() && Resultaat) {
+	While (Iterator.HasNext() && $$$Not(IsGeldig)) {
 		#dim InnerExceptie As TECH.Exceptions.Exception = Iterator.Next()
 		
 		If (InnerExceptie.%ClassName($$$True) = ..ExceptieType) {
-			Set Resultaat = ..IsGeldig(InnerExceptie, .Message)			
+			Set IsGeldig = ..IsGeldig(InnerExceptie, .Message)
 		} Else {
-			If (InnerExceptie.GeefInnerExcepties().Count() > 0) {
-				Set Resultaat = ..Valideer(Exceptie, .Message)	
-			}	
+			Set IsGeldig = ..Valideer(InnerExceptie, .Message)	
 		}
 	}
 	
-	Quit Resultaat
+	Quit IsGeldig
 ]]></Implementation>
 </Method>
 </Class>