Index: TECH/Timing/Timer.cls.xml
===================================================================
diff -u -r28 -r321
--- TECH/Timing/Timer.cls.xml	(.../Timer.cls.xml)	(revision 28)
+++ TECH/Timing/Timer.cls.xml	(.../Timer.cls.xml)	(revision 321)
@@ -1,29 +1,31 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9">
+<Export generator="Cache" version="24">
 <Class name="TECH.Timing.Timer">
 <Description>
 TODO: Rekening houden met de dag, in de timestamps.</Description>
 <ClassType>persistent</ClassType>
 <IncludeCode>TECH.Error</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%Persistent</Super>
-<ClassDefinitionError>0</ClassDefinitionError>
 
 <Property name="Label">
 <Description>
 Hierin de class-name + method-name.</Description>
 <Type>%String</Type>
 <Parameter name="MAXLEN" value="200"/>
+<Parameter name="TRUNCATE" value="1"/>
 </Property>
 
 <Property name="Context">
 <Description>
 Hierin bvb "Orgalux website".</Description>
 <Type>%String</Type>
+<Parameter name="TRUNCATE" value="1"/>
 </Property>
 
 <Property name="Starttijd">
 <Type>%String</Type>
+<Parameter name="TRUNCATE" value="1"/>
 </Property>
 
 <Property name="Duurtijd">
@@ -34,10 +36,12 @@
 
 <Property name="GUID">
 <Type>%String</Type>
+<Parameter name="TRUNCATE" value="1"/>
 </Property>
 
 <Property name="ParentLabel">
 <Type>%String</Type>
+<Parameter name="TRUNCATE" value="1"/>
 </Property>
 
 <Index name="Label">
@@ -55,7 +59,7 @@
 	Set ..Label = Label
 	Set ..ParentLabel = ParentLabel
 	Set ..Context = Context
-	Set GUID = ..MaakGUID()
+	//Set GUID = ..MaakGUID()
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -85,8 +89,9 @@
 </Method>
 
 <Method name="MaakGUID">
+<Description>
+[Previously private]</Description>
 <ClassMethod>1</ClassMethod>
-<Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[	/// TODO: Quit a GUID.
 ]]></Implementation>
@@ -126,4 +131,6 @@
 </Data>
 </Storage>
 </Class>
+
+
 </Export>