Index: TECH/SourceCodeUtils.cls.xml
===================================================================
diff -u -r877 -r946
--- TECH/SourceCodeUtils.cls.xml	(.../SourceCodeUtils.cls.xml)	(revision 877)
+++ TECH/SourceCodeUtils.cls.xml	(.../SourceCodeUtils.cls.xml)	(revision 946)
@@ -1,9 +1,9 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel) 5.0.21 (Build 6408)" ts="2011-02-14 17:41:58">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-23 09:59:50">
 <Class name="TECH.SourceCodeUtils">
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject</Super>
-<TimeChanged>62136,63719.06485</TimeChanged>
+<TimeChanged>62173,36075.248007</TimeChanged>
 <TimeCreated>62118,40201.414242</TimeCreated>
 <ClassDefinitionError>0</ClassDefinitionError>
 
@@ -81,27 +81,6 @@
 	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="159222646"/>
+<Checksum value="4213983624"/>
 </Export>