Index: APPS/Halux/Machine/Kantenband/ProgrammaDefinitieDefinieerder.cls.xml
===================================================================
diff -u -r54561 -r54562
--- APPS/Halux/Machine/Kantenband/ProgrammaDefinitieDefinieerder.cls.xml	(.../ProgrammaDefinitieDefinieerder.cls.xml)	(revision 54561)
+++ APPS/Halux/Machine/Kantenband/ProgrammaDefinitieDefinieerder.cls.xml	(.../ProgrammaDefinitieDefinieerder.cls.xml)	(revision 54562)
@@ -16,7 +16,7 @@
 
 <Method name="Definieer">
 <Implementation><![CDATA[
-	kill ^RES("APPS.Halux.Machine","PI","KantenbandProgramma","D")
+	Kill ^RES("APPS.Halux.Machine","PI","KantenbandProgramma","D")
 	
 	Do ..BewaarProgramma(..ProgrammaNaam.AfkantenFineer, $$$False)
 	Do ..BewaarProgramma(..ProgrammaNaam.AfkantenFineerMetGroef, $$$False)
@@ -35,18 +35,18 @@
 <FormalSpec>Omschrijving:TECH.String,IsDoorvoer:%Boolean</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	try {
+	Try {
 		#dim KantenbandProgramma As APPS.Halux.Machine.Kantenband.data.KantenbandProgramma = ##class(APPS.Halux.Machine.Kantenband.data.KantenbandProgramma).Maak(Omschrijving)
 		Do KantenbandProgramma.ZetIsDoorvoer(IsDoorvoer)
 		Do KantenbandProgramma.ZetOmschrijving(Omschrijving)
 		Do KantenbandProgramma.ZetVolgNr(..VolgNr)
 		Do KantenbandProgramma.Save()
-	} catch {
+	} Catch {
 		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
 		Write !, "NOTICE: Fout bij bewaren KantenbandProgramma: """, Exception.GeefOmschrijving(), """"
 	}
 	
-	set ..VolgNr = ..VolgNr+1
+	Set ..VolgNr = ..VolgNr+1
 ]]></Implementation>
 </Method>
 </Class>