Index: zTryout/JWI/KALOpkuis/BLOrdRsp.cls.xml
===================================================================
diff -u -r37925 -r37954
--- zTryout/JWI/KALOpkuis/BLOrdRsp.cls.xml	(.../BLOrdRsp.cls.xml)	(revision 37925)
+++ zTryout/JWI/KALOpkuis/BLOrdRsp.cls.xml	(.../BLOrdRsp.cls.xml)	(revision 37954)
@@ -51,7 +51,7 @@
 </Method>
 
 <Method name="KuisToeleveringOp">
-<FormalSpec>Param:%String="cmd"</FormalSpec>
+<FormalSpec>Param:%String=""</FormalSpec>
 <Implementation><![CDATA[
 	#Dim Toelevering as %String = "0"
 	#dim Bericht as %String = ""
@@ -61,9 +61,9 @@
 	while $$$Not(Toelevering="") {
 		if $$$Not( $Data( ^KTO(5005,Toelevering) ) ){
 			if Param = "cmd" {
-				w !,"Toelevering " _ Toelevering _ "te verwijderen"
+				w !,"kill ^BLOrdRsp("_Toelevering_")"
 			} else {
-				w !,"kill ^BLOrdRsp(Toelevering)"
+				w !,"Toelevering " _ Toelevering _ "te verwijderen"
 			}
 		}		
 		set Toelevering = $Order(^BLOrdRsp(Toelevering))