Index: PRODUKT2.mac.rou
===================================================================
diff -u -r33102 -r33202
--- PRODUKT2.mac.rou	(.../PRODUKT2.mac.rou)	(revision 33102)
+++ PRODUKT2.mac.rou	(.../PRODUKT2.mac.rou)	(revision 33202)
@@ -747,9 +747,7 @@
 
  ; Geeft TRUE voor het moeder-product; Voor de kind-producten (zijnde LBX of andere lades) geeft deze False terug. 
 IsSpaceTower(PRNr)
-	new ProductClassificatie
-	Set ProductClassificatie = ##class(DOM.DomeinContext).Instance().GeefProductRolAPI().GeefAdministratiefProduct(PRNr).GeefClassificatieKnoop()
-	Quit (ProductClassificatie.GeefID() = ##class(DOM.PM.enu.Classificatie).SpaceTower())
+	Quit ##class(DOM.DomeinContext).Instance().GeefProductTypeAPI().IsSpaceTowerProduct(PRNr)
 
 
  ;