Index: Tools/Wlip.cls.xml
===================================================================
diff -u -r1998 -r2064
--- Tools/Wlip.cls.xml	(.../Wlip.cls.xml)	(revision 1998)
+++ Tools/Wlip.cls.xml	(.../Wlip.cls.xml)	(revision 2064)
@@ -28,6 +28,11 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Oproeper">
+<Implementation><![CDATA[	Do ..Wlip("Oproeper: "_..GeefLaatsteMethodeString(3),3,1,1)
+]]></Implementation>
+</Method>
+
 <Method name="Properties">
 <FormalSpec>Properties...:%CacheString</FormalSpec>
 <Implementation><![CDATA[
@@ -135,7 +140,7 @@
 	;Do WLIP^vhDBG(26, $$LCVT^vhLib(##class(TECH.ClassUtils).GetCurrentMethod())_"-> "_Tekst)
 	;#dim Adres As TECH.Integer = $Piece(##class(TECH.Process).GeefClientIP(),".",4)
 	#dim WlipString As TECH.String = String
-	Set:MetLocatieData WlipString = ..GeefLaatsteMethodeString(Count)_WlipString
+	Set:MetLocatieData WlipString = ..GeefLaatsteMethodeString(Count)_"-> "_WlipString
 	Set:MetTijd WlipString = ..GeefTijdString()_WlipString
 	Do:$$$Not(..LaatsteIPPiece="") ##class(ActiveX.DebugWindow).AddMessage("192.168.1."_..LaatsteIPPiece, WlipString)
 ]]></Implementation>
@@ -148,7 +153,7 @@
 <Implementation><![CDATA[
 	#dim StackLevel As TECH.Integer = $ESTACK
 	#dim ExecutedFrom As TECH.String = $STACK(StackLevel-Count,"PLACE")
-	Quit $$LCVT^vhLib(##class(TECH.ClassUtils).GetClassAndMethod(ExecutedFrom))_"-> "
+	Quit $$LCVT^vhLib(##class(TECH.ClassUtils).GetClassAndMethod(ExecutedFrom))
 ]]></Implementation>
 </Method>