Index: svn/Repository/CodeRepository.cls.xml
===================================================================
diff -u -r1607 -r1638
--- svn/Repository/CodeRepository.cls.xml	(.../CodeRepository.cls.xml)	(revision 1607)
+++ svn/Repository/CodeRepository.cls.xml	(.../CodeRepository.cls.xml)	(revision 1638)
@@ -83,7 +83,7 @@
 </Method>
 
 <Method name="DeleteCode">
-<FormalSpec>InternalName</FormalSpec>
+<FormalSpec>InternalName:%String</FormalSpec>
 <Implementation><![CDATA[
 	quit:'$length(InternalName)
 	Set ..IsCodeVeranderd = 1
@@ -98,8 +98,8 @@
 		}
 	} 
 	else {
-		do $system.OBJ.DeletePackage(InternalName)
 		do ..DeletePackage(InternalName) 
+		do $system.OBJ.DeletePackage(InternalName)
 	}
 	quit
 ]]></Implementation>
Index: svn/Repository.cls.xml
===================================================================
diff -u -r1634 -r1638
--- svn/Repository.cls.xml	(.../Repository.cls.xml)	(revision 1634)
+++ svn/Repository.cls.xml	(.../Repository.cls.xml)	(revision 1638)
@@ -298,7 +298,7 @@
 	set rs = ##class(%ResultSet).%New("%Dictionary.ClassDefinition:Extent")
 	do rs.Execute()
 	while rs.Next() {
-		set Name = rs.GetData(1)
+		#dim Name As %String = rs.GetData(1)
 		if $extract(Name,1,$length(InternalName))=InternalName {
 			do $system.OBJ.Delete(Name)
 			do ##class(%ExtentMgr.Util).DeleteExtent(##class(TECH.SourceCodeUtils).StripExtension(Name))