Index: APPS/PM/Maatwerk/MaatwerkModel/impl/ModelUtils.cls.xml
===================================================================
diff -u -r31850 -r50170
--- APPS/PM/Maatwerk/MaatwerkModel/impl/ModelUtils.cls.xml	(.../ModelUtils.cls.xml)	(revision 31850)
+++ APPS/PM/Maatwerk/MaatwerkModel/impl/ModelUtils.cls.xml	(.../ModelUtils.cls.xml)	(revision 50170)
@@ -10,8 +10,9 @@
 	If (DisplayList = "") { Set DisplayList = ValueList }
 
 	#dim Stream As %CharacterStream = ##class(%FileCharacterStream).%New()
+	#dim SuperKlasseLijst As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes(SuperKlasse)
 	
-	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>datatype</ClassType>")
 	Do Stream.Write("<Parameter name=""VALUELIST"">")