Index: TECH/DateTime/impl/DateTimeAPI.cls.xml
===================================================================
diff -u -r3826 -r3905
--- TECH/DateTime/impl/DateTimeAPI.cls.xml	(.../DateTimeAPI.cls.xml)	(revision 3826)
+++ TECH/DateTime/impl/DateTimeAPI.cls.xml	(.../DateTimeAPI.cls.xml)	(revision 3905)
@@ -232,7 +232,7 @@
 <Method name="IsVandaag">
 <FormalSpec>Dag:%Date</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	quit ##class(TECH.DateTime).IsVandaag()
+<Implementation><![CDATA[	quit ##class(TECH.DateTime).IsVandaag(Dag)
 ]]></Implementation>
 </Method>
 
Index: vhTest/Fake/TECH/DateTime/DateTimeAPI.cls.xml
===================================================================
diff -u -r3103 -r3905
--- vhTest/Fake/TECH/DateTime/DateTimeAPI.cls.xml	(.../DateTimeAPI.cls.xml)	(revision 3103)
+++ vhTest/Fake/TECH/DateTime/DateTimeAPI.cls.xml	(.../DateTimeAPI.cls.xml)	(revision 3905)
@@ -50,6 +50,13 @@
 <Implementation><![CDATA[	Quit $zdatetime(..CurrentHorolog(),3)
 ]]></Implementation>
 </Method>
+
+<Method name="IsVandaag">
+<FormalSpec>Dag:%Date</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	quit ((+..Horolog) = (+Dag))
+]]></Implementation>
+</Method>
 </Class>