Index: TECH/Lock/MultiGlobalLocker.cls.xml
===================================================================
diff -u -r3360 -r3362
--- TECH/Lock/MultiGlobalLocker.cls.xml	(.../MultiGlobalLocker.cls.xml)	(revision 3360)
+++ TECH/Lock/MultiGlobalLocker.cls.xml	(.../MultiGlobalLocker.cls.xml)	(revision 3362)
@@ -84,26 +84,21 @@
 		}
 		set LockCmd = LockCmd _ "):"_timeout 
 		xecute LockCmd
-		Do ##class(Tools.Wlip).%New(207).String("### " _ $TEST_ " uitvoeren " _ LockCmd)
 		Set LockOK = LockOK && $TEST
+
 		If Operation = "+" {
 			If LockOK {
-				;bijhouden unlock statemens uit te voeren als een van de volgende deel locks niet lukt.
+				; bijhouden unlock statemens uit te voeren als een van de volgende deel locks niet lukt.
 				; alleen de gelockte mogen geunlocked worden om rekening te houden met incremental locks
 				Do UnlockStatements.Insert(##class(TECH.StringUtils).Replace(LockCmd,"Lock +","Lock -"))
-				Do ##class(Tools.Wlip).%New(207).String("### Bijhouden"	)			
 			} else {
-				Do ##class(Tools.Wlip).%New(207).String("### rollback locks")
 				set StatementIterator = ##class(TECH.ListIterator).%New(UnlockStatements)
 				While StatementIterator.HasNext(){
-					#dim UnlockStatement as %String = StatementIterator.Next()
-					
+					#dim UnlockStatement as %String = StatementIterator.Next()					
 					Xecute UnlockStatement
-					Do ##class(Tools.Wlip).%New(207).String("### " _ $TEST_ " uitvoeren " _ UnlockStatement)
 				}				
 			}
-		}
-		
+		}		
 	}
 	quit LockOK
 ]]></Implementation>