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>