Index: TECH/Collections/LinkedList.cls.xml
===================================================================
diff -u -r321 -r322
--- TECH/Collections/LinkedList.cls.xml	(.../LinkedList.cls.xml)	(revision 321)
+++ TECH/Collections/LinkedList.cls.xml	(.../LinkedList.cls.xml)	(revision 322)
@@ -1,7 +1,8 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="24">
+<Export generator="Cache" version="9">
 <Class name="TECH.Collections.LinkedList">
 <Super>%RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
 
 <Property name="Root">
 <Type>TECH.Collections.impl.LinkedListKnoop</Type>
@@ -37,7 +38,7 @@
 <FormalSpec>Element:%CacheString</FormalSpec>
 <Implementation><![CDATA[
 	Set EersteKnoop = ##class(TECH.Collections.impl.LinkedListKnoop).%New(Element)
-	#dim TweedeKnoop As TECH.Collections.impl.LinkedListKnoop = ..Root.VolgendeKnoop
+	Set TweedeKnoop = ..Root.VolgendeKnoop
 	Set ..Root.VolgendeKnoop = EersteKnoop
 	Set EersteKnoop.VolgendeKnoop = TweedeKnoop
 	
@@ -51,7 +52,7 @@
 <Method name="VerwijderEerste">
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
-	#dim IsVerwijderd As %Boolean = 0
+	Set IsVerwijderd = 0
 	If ('..IsLeeg())
 	{
 		Set ..Root = ..Root.VolgendeKnoop
@@ -81,6 +82,4 @@
 ]]></Implementation>
 </Method>
 </Class>
-
-
 </Export>
Index: TECH/Persistentie/GlobalUtils.cls.xml
===================================================================
diff -u -r321 -r322
--- TECH/Persistentie/GlobalUtils.cls.xml	(.../GlobalUtils.cls.xml)	(revision 321)
+++ TECH/Persistentie/GlobalUtils.cls.xml	(.../GlobalUtils.cls.xml)	(revision 322)
@@ -1,9 +1,10 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="24">
+<Export generator="Cache" version="9">
 <Class name="TECH.Persistentie.GlobalUtils">
 <ClassType/>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
 
 <UDLText name="T">
 <Content><![CDATA[
@@ -17,12 +18,12 @@
 <ClassMethod>1</ClassMethod>
 <FormalSpec>GlobalNaam:%String,Subscripts:%ListOfDataTypes</FormalSpec>
 <Implementation><![CDATA[
-	#dim NodeKeyIsGeldig As %Boolean = 1
-	#dim NodeKey As %String = GlobalNaam _ "("
+	Set NodeKeyIsGeldig = 1
+	Set NodeKey = GlobalNaam _ "("
 	
 	Set SubscriptsIterator = ##class(TECH.ListIterator).%New(Subscripts)
 	While (SubscriptsIterator.HasNext()) {
-		#dim SubscriptWaarde As %String = SubscriptsIterator.Next()
+		Set SubscriptWaarde = SubscriptsIterator.Next()
 		If (' ..IsGeldigeSubscript(SubscriptWaarde)) {
 			Set NodeKeyIsGeldig = 0
 		}
@@ -71,6 +72,4 @@
 ]]></Implementation>
 </Method>
 </Class>
-
-
 </Export>
Index: TECH/Persistentie/GlobalNode.cls.xml
===================================================================
diff -u -r321 -r322
--- TECH/Persistentie/GlobalNode.cls.xml	(.../GlobalNode.cls.xml)	(revision 321)
+++ TECH/Persistentie/GlobalNode.cls.xml	(.../GlobalNode.cls.xml)	(revision 322)
@@ -1,5 +1,5 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="24">
+<Export generator="Cache" version="9">
 <Class name="TECH.Persistentie.GlobalNode">
 <Description>
 Toegang tot een global node.
@@ -11,6 +11,7 @@
 <ClassType/>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
 
 <Property name="Delimiter">
 <Type>%String</Type>
@@ -72,7 +73,7 @@
 <FormalSpec>Index:%Integer</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
-	#dim PieceAanwezig As %Boolean = 0
+	Set PieceAanwezig = 0
 	If (..DirtyPieces.IsDefined(Index)) {
 		Set PieceAanwezig = ("" '= ..DirtyPieces.GetAt(Index))
 	}  Else {
@@ -219,6 +220,4 @@
 ]]></Implementation>
 </Method>
 </Class>
-
-
 </Export>
Index: TECH/CodeGebruik/RoutineLogger.cls.xml
===================================================================
diff -u -r321 -r322
--- TECH/CodeGebruik/RoutineLogger.cls.xml	(.../RoutineLogger.cls.xml)	(revision 321)
+++ TECH/CodeGebruik/RoutineLogger.cls.xml	(.../RoutineLogger.cls.xml)	(revision 322)
@@ -1,19 +1,18 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="24">
+<Export generator="Cache" version="9">
 <Class name="TECH.CodeGebruik.RoutineLogger">
 <Super>%RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
 
 <Method name="LogRoutine">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>Actie:%String</FormalSpec>
 <Implementation><![CDATA[
-	#dim Details As %String = "Gebruiker: "_##class(TECH.Context.RuntimeContext).Instance().GeefGebruikerInitialen()_$C(13,10)_$C(13,10)
+	Set Details = "Gebruiker: "_##class(TECH.Context.RuntimeContext).Instance().GeefGebruikerInitialen()_$C(13,10)_$C(13,10)
 	Set Details = Details_"StackTrace:"_$C(13,10)
 	Set Details = Details_##class(TECH.Process).GeefStackTrace()
 	Do ##class(vhLib.Logger).%New("OudeRoutine").Warning(Actie,Details)
 ]]></Implementation>
 </Method>
 </Class>
-
-
 </Export>