Index: vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/BewaarKlantinstellingen.cls.xml
===================================================================
diff -u -r60847 -r60848
--- vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/BewaarKlantinstellingen.cls.xml	(.../BewaarKlantinstellingen.cls.xml)	(revision 60847)
+++ vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/BewaarKlantinstellingen.cls.xml	(.../BewaarKlantinstellingen.cls.xml)	(revision 60848)
@@ -112,7 +112,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="aTest: lijst opvragen">
+<Method name="Test: lijst opvragen">
 <Implementation><![CDATA[
 	Set Request = ##class(WS.Halux.AAP.BewerkKlantinstellingenRequest).%New()
 	Set Request.Actie = "Lijst"
Index: WSimpl/Halux/AAP/DnaCodeService.cls.xml
===================================================================
diff -u -r60846 -r60848
--- WSimpl/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 60846)
+++ WSimpl/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 60848)
@@ -706,7 +706,6 @@
 					Do ..KlantinstellingenRepository.Bewaar(Klantinstellingen)
 				}
 			}
-			Set Response.Header.Status = "200"
 		} ElseIf BewerkKlantInstellingen.Actie = "Delete" {
 			Set KlantinstellingenIterator = ..KlantinstellingenRepository.ZoekViaKlantId(BewerkKlantInstellingen.KlantId)
 			If KlantinstellingenIterator.HasNext() {
@@ -717,6 +716,7 @@
 		While KlantinstellingenIterator.HasNext() {
 			Do Response.Klantinstellingen.Insert(..KlantinstellingenNaarDto(KlantinstellingenIterator.Next()))
 		}
+		Set Response.Header.Status = "200"
 	} Catch {
 		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
 		Set Response.Header.Status = Exception.GeefExceptionCode()