Index: TECH/SourceCodeUtils.cls.xml
===================================================================
diff -u -r788 -r877
--- TECH/SourceCodeUtils.cls.xml	(.../SourceCodeUtils.cls.xml)	(revision 788)
+++ TECH/SourceCodeUtils.cls.xml	(.../SourceCodeUtils.cls.xml)	(revision 877)
@@ -1,9 +1,9 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-02-03 16:56:50">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel) 5.0.21 (Build 6408)" ts="2011-02-14 17:41:58">
 <Class name="TECH.SourceCodeUtils">
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject</Super>
-<TimeChanged>62125,56558.026492</TimeChanged>
+<TimeChanged>62136,63719.06485</TimeChanged>
 <TimeCreated>62118,40201.414242</TimeCreated>
 <ClassDefinitionError>0</ClassDefinitionError>
 
@@ -81,6 +81,27 @@
 	quit InternalName
 ]]></Implementation>
 </Method>
+
+<Method name="GetDateModified">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>InternalName:%String</FormalSpec>
+<ReturnType>%Date</ReturnType>
+<Implementation><![CDATA[
+	
+	set result = 0
+	if ..Type(InternalName)="routine" {
+		set result = $zdatetimeh(##class(%RoutineMgr).GetDate(InternalName),3)
+	}
+	elseif ..Type(InternalName)="class" {
+		set Class = ##class(%Dictionary.ClassDefinition).%OpenId(..StripExtension(InternalName))
+		if $isObject(Class) {
+			set result = $select($length(Class.TimeChanged):Class.TimeChanged,1:Class.TimeCreated)
+			set result = $piece(result,".",1)
+		}
+	}
+	quit result
+]]></Implementation>
+</Method>
 </Class>
-<Checksum value="2707062469"/>
+<Checksum value="159222646"/>
 </Export>