Index: APPS/Halux/Machine/BodemSlicing/impl/DataBewaarder.cls.xml
===================================================================
diff -u -r31619 -r31622
--- APPS/Halux/Machine/BodemSlicing/impl/DataBewaarder.cls.xml	(.../DataBewaarder.cls.xml)	(revision 31619)
+++ APPS/Halux/Machine/BodemSlicing/impl/DataBewaarder.cls.xml	(.../DataBewaarder.cls.xml)	(revision 31622)
@@ -2,6 +2,16 @@
 <Export generator="Cache" version="24">
 <Class name="APPS.Halux.Machine.BodemSlicing.impl.DataBewaarder">
 <Super>TECH.RegisteredObject</Super>
+
+<Method name="Bewaar">
+<FormalSpec>Data:APPS.Halux.Machine.BodemSlicing.data.BodemSlicingData</FormalSpec>
+<Implementation><![CDATA[
+	#dim SaveStatus As %Status = Data.%Save()
+	if $$$ISERR(SaveStatus) { 
+		do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.SaveFailedException).%New("Save failed",SaveStatus))
+	}
+]]></Implementation>
+</Method>
 </Class>