Index: DOM/PM/Maatwerk/Calc/HF/impl/HFItemBerekenException.cls.xml
===================================================================
diff -u -r1075 -r1969
--- DOM/PM/Maatwerk/Calc/HF/impl/HFItemBerekenException.cls.xml	(.../HFItemBerekenException.cls.xml)	(revision 1075)
+++ DOM/PM/Maatwerk/Calc/HF/impl/HFItemBerekenException.cls.xml	(.../HFItemBerekenException.cls.xml)	(revision 1969)
@@ -2,7 +2,7 @@
 <Export generator="Cache" version="9">
 <Class name="DOM.PM.Maatwerk.Calc.HF.impl.HFItemBerekenException">
 <ProcedureBlock>1</ProcedureBlock>
-<Super>%RegisteredObject,TECH.IException</Super>
+<Super>TECH.Exceptions.Exception</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Property name="HFItemBuilder">
@@ -15,17 +15,13 @@
 <Private>1</Private>
 </Property>
 
-<Property name="InnerException">
-<Type>TECH.IException</Type>
-<Private>1</Private>
-</Property>
-
 <Method name="%OnNew">
 <FormalSpec>HFItemBuilder:DOM.PM.Maatwerk.Calc.HF.IHalffabItemBuilder,SelectieKenmerken:%ArrayOfDataTypes,InnerException:TECH.IException</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
+	Do ##super()
 	Set ..HFItemBuilder = HFItemBuilder
 	Set ..SelectieKenmerken = SelectieKenmerken
 	Set ..InnerException = InnerException
@@ -48,6 +44,7 @@
 <Method name="ToString">
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
+	
 	Set ExceptieString = "Fout bij het berekenen van halffabitems voor rol "_..HFItemBuilder.GeefRol()_$C(10,13)
 						_"Inner exception: "_..InnerException.ToString()_$C(10,13)_
 						 "SelectieKenmerken: "
@@ -57,7 +54,7 @@
 		Set Waarde = Iterator.Next()
 		Set ExceptieString = ExceptieString_$C(10,13)_"    "_Iterator.Key()_": "_Waarde
 	}
-		
+	Set ExceptieString = ##super()	
 	Quit ExceptieString
 ]]></Implementation>
 </Method>