Index: DOM/VKP/impl/VerkoopbaarProduct.cls.xml
===================================================================
diff -u -r45737 -r45739
--- DOM/VKP/impl/VerkoopbaarProduct.cls.xml	(.../VerkoopbaarProduct.cls.xml)	(revision 45737)
+++ DOM/VKP/impl/VerkoopbaarProduct.cls.xml	(.../VerkoopbaarProduct.cls.xml)	(revision 45739)
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="DOM.VKP.impl.VerkoopbaarProduct">
-<Super>DOM.VKP.VerkoopbaarProduct,%RegisteredObject</Super>
+<Super>TECH.RegisteredObject,DOM.VKP.VerkoopbaarProduct</Super>
 
 <Property name="Product">
 <Type>DOM.PM.impl.DataM.DataMProduct</Type>
@@ -16,9 +16,11 @@
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	#dim Status As %Status = $$$OK
-
-	set ..Product = ##class(DOM.PM.impl.DataM.DataMProduct).Open(ProductID)
-	if ('$IsObject(..Product)) {
+	set ..Product = ##class(DOM.PM.impl.DataM.DataMProduct).%New()
+	try  {
+		do ..Product.Open(ProductID)
+	} catch {
+		do ##class(TECH.ExceptionHandler).Catch(..E.InvalidInputException)
 		set Status = $$$ERROR("Geen bestaand product.")
 	}
 	quit Status