Index: TECH/GlobalUtils.cls.xml
===================================================================
diff -u -r734 -r881
--- TECH/GlobalUtils.cls.xml	(.../GlobalUtils.cls.xml)	(revision 734)
+++ TECH/GlobalUtils.cls.xml	(.../GlobalUtils.cls.xml)	(revision 881)
@@ -1,9 +1,9 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-01-27 17:01:07">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-02-14 18:15:14">
 <Class name="TECH.GlobalUtils">
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject</Super>
-<TimeChanged>62105,42185.645291</TimeChanged>
+<TimeChanged>62136,65767.282755</TimeChanged>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Method name="ExportToBlock">
@@ -12,8 +12,11 @@
 <ProcedureBlock>0</ProcedureBlock>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
+	new GVECA,blksize,ctrGlobal,flag,SYS,G // variabelen die verder door intersystems zullen gebruikt worden
+	
 	new IO,IOPAR,IOT
 	new arGlobals
+	
 	set IO=Filename
 	set IOPAR="(::8192)"
 	set IOT="RMS"
@@ -30,7 +33,7 @@
 <ProcedureBlock>0</ProcedureBlock>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	
+	new GVECA,blksize,ctrGlobal,flag,SYS,G // variabelen die verder door intersystems zullen gebruikt worden
 	quit 0
 	/*
 	  Code disabled wachten op WRC --> database corruptie
@@ -89,5 +92,5 @@
 ]]></Implementation>
 </Method>
 </Class>
-<Checksum value="560358756"/>
+<Checksum value="3417335888"/>
 </Export>