Index: vhLib/OldSchool.cls.xml
===================================================================
diff -u -r19 -r88
--- vhLib/OldSchool.cls.xml	(.../OldSchool.cls.xml)	(revision 19)
+++ vhLib/OldSchool.cls.xml	(.../OldSchool.cls.xml)	(revision 88)
@@ -15,7 +15,7 @@
 	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()),".")
 	Quit
 ]]></Implementation>
 </Method>