Index: TECH/Debug.cls.xml
===================================================================
diff -u
--- TECH/Debug.cls.xml	(revision 0)
+++ TECH/Debug.cls.xml	(revision 435)
@@ -0,0 +1,26 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="TECH.Debug">
+<Super>%RegisteredObject</Super>
+
+<Method name="Open">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Set %DebugWindowSocket = ##class(%IO.ServerSocket).%New()
+	#dim sc As %Status
+	d %DebugWindowSocket.Open(13222,,.sc)
+	If ($$$ISERR(sc)) Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.StatusException).%New("Fout bij openen socket"))
+	d %DebugWindowSocket.Listen()
+]]></Implementation>
+</Method>
+
+<Method name="WriteLine">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Boodschap:%String</FormalSpec>
+<Implementation><![CDATA[	d %DebugWindowSocket.WriteLine(Boodschap)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>