Index: TECH/TimeStampUtils.cls.xml
===================================================================
diff -u -r1883 -r1888
--- TECH/TimeStampUtils.cls.xml	(.../TimeStampUtils.cls.xml)	(revision 1883)
+++ TECH/TimeStampUtils.cls.xml	(.../TimeStampUtils.cls.xml)	(revision 1888)
@@ -3,6 +3,21 @@
 <Class name="TECH.TimeStampUtils">
 <Super>TECH.RegisteredObject</Super>
 
+<Method name="EndOfDay">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>TimeStamp:%TimeStamp</FormalSpec>
+<ReturnType>%TimeStamp</ReturnType>
+<Implementation><![CDATA[	quit $piece(TimeStamp," ")_" 23:59:59.999"
+]]></Implementation>
+</Method>
+
+<Method name="BeginOfDay">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>TimeStamp:%TimeStamp</FormalSpec>
+<Implementation><![CDATA[	quit $piece(TimeStamp," ")_" 00:00:00"
+]]></Implementation>
+</Method>
+
 <Method name="AddSeconds">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>TimeStamp:%TimeStamp,Seconds:TECH.Integer</FormalSpec>