Index: TECH/DateTime.cls.xml
===================================================================
diff -u -r1603 -r1615
--- TECH/DateTime.cls.xml	(.../DateTime.cls.xml)	(revision 1603)
+++ TECH/DateTime.cls.xml	(.../DateTime.cls.xml)	(revision 1615)
@@ -45,6 +45,14 @@
 ]]></Implementation>
 </Method>
 
+<Method name="TimeStampToHorolog">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>TimeStamp:%TimeStamp</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit $zdth(TimeStamp,3)
+]]></Implementation>
+</Method>
+
 <Method name="DateToTimestamp">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>Date:%Date</FormalSpec>