Index: vhLib/OldSchool.cls.xml
===================================================================
diff -u -r88 -r206
--- vhLib/OldSchool.cls.xml	(.../OldSchool.cls.xml)	(revision 88)
+++ vhLib/OldSchool.cls.xml	(.../OldSchool.cls.xml)	(revision 206)
@@ -9,13 +9,13 @@
 <ClassMethod>1</ClassMethod>
 <ProcedureBlock>0</ProcedureBlock>
 <Implementation><![CDATA[
-
 	Set D = $get(D,"\")
 	Set U = $get(U,";")
 	Set Q = $get(Q,"K")
 	Set QT = $get(QT)
 	Set DT = ##class(TECH.DateTime).GeefDatumInPuntNotatie(##class(TECH.DateTime).CurrentDate())
 	Set DD = $Piece(##class(TECH.DateTime).GeefDatumInPuntNotatie(##class(TECH.DateTime).CurrentDate()),".")
+	Set boot = $get(boot,##class(TECH.Context.RuntimeContext).Instance().GeefServerNaam())
 	Quit
 ]]></Implementation>
 </Method>