Index: APPS/PM/Maatwerk/MaatwerkModel/impl/KenmerkGroepMaker.cls.xml
===================================================================
diff -u -r31551 -r31906
--- APPS/PM/Maatwerk/MaatwerkModel/impl/KenmerkGroepMaker.cls.xml	(.../KenmerkGroepMaker.cls.xml)	(revision 31551)
+++ APPS/PM/Maatwerk/MaatwerkModel/impl/KenmerkGroepMaker.cls.xml	(.../KenmerkGroepMaker.cls.xml)	(revision 31906)
@@ -284,13 +284,13 @@
 		#dim OmschrijvingMetTemplate As %String = $Replace(Rol.ProductieDocTemplate, "{Rol}", Rol.DisplayNaam)
 		#dim Package As %String = ..Model.GeefHalffabPackage()
 		#dim KlasseNaam As %String = Package _ ".Halffab" _ Rol.Naam
-		#dim SuperKlasse As %String = "DOM.PM.Maatwerk.Calc.HF.Halffab"
+		#dim SuperKlasseLijst As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("DOM.PM.Maatwerk.Calc.HF.Halffab")
 		
-		Set:(..BevatBewerkbaarProperty(InfoVoorHalffabCreatie)) SuperKlasse = SuperKlasse _ ",DOM.PM.Maatwerk.Calc.HF.IBewerkbaarHalffab"
+		Do:(..BevatBewerkbaarProperty(InfoVoorHalffabCreatie)) SuperKlasseLijst.Insert("DOM.PM.Maatwerk.Calc.HF.IBewerkbaarHalffab")
 		
 		#dim Stream As %FileCharacterStream = ##class(%FileCharacterStream).%New()
 		
-		Do ##class(APPS.PM.Maatwerk.MaatwerkModel.impl.ModelUtils).GenereerKlasseBegin(Stream, KlasseNaam, SuperKlasse)
+		Do ##class(APPS.PM.Maatwerk.MaatwerkModel.impl.ModelUtils).GenereerKlasseBegin(Stream, KlasseNaam, SuperKlasseLijst)
 		Do Stream.Write("<ClassType>persistent</ClassType>")
 		
 		#dim Iterator As TECH.Iterator = ##class(TECH.ListIterator).%New(InfoVoorHalffabCreatie)