Index: vhLib/OldSchool.cls.xml
===================================================================
diff -u -r17 -r19
--- vhLib/OldSchool.cls.xml	(.../OldSchool.cls.xml)	(revision 17)
+++ vhLib/OldSchool.cls.xml	(.../OldSchool.cls.xml)	(revision 19)
@@ -14,6 +14,7 @@
 	Set U = $get(U,";")
 	Set Q = $get(Q,"K")
 	Set QT = $get(QT)
+	Set DT = ##class(TECH.DateTime).GeefDatumInPuntNotatie(##class(TECH.DateTime).CurrentDate())
 	
 	Quit
 ]]></Implementation>