Index: WS/Tools/ECPControle.cls.xml
===================================================================
diff -u -r3806 -r5159
--- WS/Tools/ECPControle.cls.xml	(.../ECPControle.cls.xml)	(revision 3806)
+++ WS/Tools/ECPControle.cls.xml	(.../ECPControle.cls.xml)	(revision 5159)
@@ -25,18 +25,25 @@
 		set GlobalInfo = itGlobals.Next()
 		set Global = itGlobals.Key()
 		
-		set EersteNode = $order(@("^"_Global_("""")))
-		set LaatsteNode = $order(@("^"_Global_("""")),-1)
+		set EersteNode = $order(@("^"_Global_"("""")"))
+		set LaatsteNode = $order(@("^"_Global_"("""")"),-1)
 		
 		set GlobalInfo.Onbestaand = '$data(@("^"_Global))
 		
 		set GlobalInfo.EersteNodeInOrde = ( GlobalInfo.EersteNode = EersteNode )
-		set GlobalInfo.LaatsteNodeInOrder = ( GlobalInfo.LaatsteNode = LaatsteNode )
+		set GlobalInfo.LaatsteNodeInOrde = ( GlobalInfo.LaatsteNode = LaatsteNode )
 	
 	}
 	
 	quit ECPControle
 ]]></Implementation>
 </Method>
+
+<Method name="PeekServer">
+<ReturnType>%String</ReturnType>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[	Quit $$$Server _ " - " _ $$$NSpace
+]]></Implementation>
+</Method>
 </Class>
 </Export>