Index: Prod/Kenmerk/DataDefinitie.cls.xml
===================================================================
diff -u -r1124 -r1128
--- Prod/Kenmerk/DataDefinitie.cls.xml	(.../DataDefinitie.cls.xml)	(revision 1124)
+++ Prod/Kenmerk/DataDefinitie.cls.xml	(.../DataDefinitie.cls.xml)	(revision 1128)
@@ -390,7 +390,7 @@
 		SELECT ID,Kenmerk->Groep INTO :DDefID,:KenmerkGroep FROM Prod_Kenmerk.DataDefinitie 
 		WHERE (UnID=:FromUnID) AND ((Kenmerk->Groep = :GroepID) OR (:GroepID="*")) )
 	&sql(OPEN crsCP)
-	Kill sc
+	Set sc=$$$OK
 	
 	For  &sql(FETCH crsCP) Quit:SQLCODE  Do  Quit:($$$ISERR(sc))
 	. If $LL($G(lbExcludeGroepIDs)) Quit:$LF(lbExcludeGroepIDs,KenmerkGroep)