Index: TECH/SourceCodeUtils.cls.xml
===================================================================
diff -u -r748 -r788
--- TECH/SourceCodeUtils.cls.xml	(.../SourceCodeUtils.cls.xml)	(revision 748)
+++ TECH/SourceCodeUtils.cls.xml	(.../SourceCodeUtils.cls.xml)	(revision 788)
@@ -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-01-31 13:03:06">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-02-03 16:56:50">
 <Class name="TECH.SourceCodeUtils">
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject</Super>
-<TimeChanged>62118,52341.974814</TimeChanged>
+<TimeChanged>62125,56558.026492</TimeChanged>
 <TimeCreated>62118,40201.414242</TimeCreated>
 <ClassDefinitionError>0</ClassDefinitionError>
 
@@ -14,12 +14,17 @@
 <Implementation><![CDATA[
 	set Exists = 0
 	set ItemType = ..Type(InternalName)
+	
 	if ItemType = "routine" { 
 		set Exists = ##class(%RoutineMgr).Exists(InternalName) 
 	}
 	if ItemType = "class" { 
 		set Exists = ##class(%Dictionary.ClassDefinition).%ExistsId(..StripExtension(InternalName)) 
 	}
+	if ItemType = "csp" {
+		set CSPFilename = ##class(TECH.CSP.CSPApplicatie).GetPhysicalFilename(InternalName)
+		if $length(CSPFilename) set Exists = ##class(%File).Exists(CSPFilename)
+	}
 	quit Exists
 ]]></Implementation>
 </Method>
@@ -31,6 +36,7 @@
 <Implementation><![CDATA[
 	set Extensie = $piece(InternalName,".",$length(InternalName,"."))
 	if $zcvt(Extensie,"U")="CLS" quit "class"
+	if $extract(InternalName)="/" quit "csp"
 	if $zcvt(Extensie,"U")="CSP" quit "csp"
 	if $zcvt(Extensie,"U")="CSR" quit "csp"
 	if $zcvt(Extensie,"U")="PRJ" quit "project"
@@ -55,7 +61,7 @@
 		set Type = ..Type(InternalName) 
 		if Type = "class" {
 			set Class = ##class(%Dictionary.ClassDefinition).%OpenId(..StripExtension(InternalName))
-			Set IsSystemCode = Class.System
+			if $isObject(Class) Set IsSystemCode = Class.System
 		}
 	}
 
@@ -76,5 +82,5 @@
 ]]></Implementation>
 </Method>
 </Class>
-<Checksum value="706874168"/>
+<Checksum value="2707062469"/>
 </Export>