Index: TECH/enu/ExceptionCode.cls.xml
===================================================================
diff -u -r2279 -r2285
--- TECH/enu/ExceptionCode.cls.xml	(.../ExceptionCode.cls.xml)	(revision 2279)
+++ TECH/enu/ExceptionCode.cls.xml	(.../ExceptionCode.cls.xml)	(revision 2285)
@@ -6,7 +6,7 @@
 <Super>%String</Super>
 
 <Parameter name="VALUELIST">
-<Default>-1000;-1001;-1002;-1003;-1004;-1005;-1006;-1007;-1008;-1009;-1010;-1011;-1012;-1013;-1014;-1015;-1016;-1017;-3000;-3001;-5000;-5005;-5804;-4000;-6001;-6002</Default>
+<Default>-1000;-1001;-1002;-1003;-1004;-1005;-1006;-1007;-1008;-1009;-1010;-1011;-1012;-1013;-1014;-1015;-1016;-1017;-3000;-3001;-5000;-5005;-5804;-4000;-6001;-6002,-7001</Default>
 </Parameter>
 
 <Method name="GeneralError">
@@ -190,6 +190,13 @@
 <Implementation><![CDATA[	Quit "-6002"
 ]]></Implementation>
 </Method>
+
+<Method name="TechnicalError">
+<ClassMethod>1</ClassMethod>
+<ReturnType>TECH.enu.ExceptionCode</ReturnType>
+<Implementation><![CDATA[	Quit "-7001"
+]]></Implementation>
+</Method>
 </Class>