Index: PRBS.mac.rou
===================================================================
diff -u -r41550 -r44342
--- PRBS.mac.rou	(.../PRBS.mac.rou)	(revision 41550)
+++ PRBS.mac.rou	(.../PRBS.mac.rou)	(revision 44342)
@@ -482,7 +482,8 @@
 	. Do ##class(Prod.GAData.Product).KPRCreateSchaduwViaPRNr(MPRNr) ; Staffel wordt opgehaald uit de kenmerken	
 	. Do:('VersionIsFilled) ZetVersienummer(MPRNr,"")       ; terug wissen
 	Else  Do ; Normaal
-	. Do ##class(Prod.GAData.Product).KPRModify(MPRNr,"H",0) ; Staffel wordt opgehaald uit de kenmerken		
+	. New sc  Set sc = ##class(Prod.GAData.Product).KPRModify(MPRNr,"H",0) ; Staffel wordt opgehaald uit de kenmerken 
+	. Do:('sc) ##class(vhLib.Logger).LogExceptie(##class(TECH.Exceptions.StatusException).%New("1000:GeneralError","KPRModify failed (PRNr="_MPRNr_")",sc))
  
 	Quit