Index: Tools/Install.cls.xml
===================================================================
diff -u -r862 -r1246
--- Tools/Install.cls.xml	(.../Install.cls.xml)	(revision 862)
+++ Tools/Install.cls.xml	(.../Install.cls.xml)	(revision 1246)
@@ -82,7 +82,6 @@
 <Method name="StelInGebruikerEigenschappen">
 <ClassMethod>1</ClassMethod>
 <Implementation><![CDATA[
-    
 	Do ..CreateICTPinningNodes()
     #dim Key As %String = ""
     for { set Key = $Order(^cLOG($$$Server,"PIN",Key)) Quit:Key=""
@@ -97,7 +96,7 @@
 <ClassMethod>1</ClassMethod>
 <Private>1</Private>
 <Implementation><![CDATA[
-	Kill ^cLOG($$$Server,"PIN")
+	kill ^cLOG($$$Server,"PIN")
 	set ^cLOG($$$Server,"PIN",1015)="PV"
     set ^cLOG($$$Server,"PIN",1027)="CW"
     set ^cLOG($$$Server,"PIN",1097)="WV"
@@ -108,6 +107,7 @@
     set ^cLOG($$$Server,"PIN",1204)="FMA"
     set ^cLOG($$$Server,"PIN",1026)="PBO"
     set ^cLOG($$$Server,"PIN",1042)="MVI"
+    set ^cLOG($$$Server,"PIN",1191)="PJE"
 ]]></Implementation>
 </Method>
 
@@ -126,12 +126,15 @@
 <FormalSpec>Naam:%String</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	Set ^cLOG(Naam_"-W7","PAP","BZ","B")="Breed\66\132\0\5\0"
-	Set ^cLOG(Naam_"-W7","PAP","BZ","E1")="Etiket 9x40\9\40\1\1\0"
-	Set ^cLOG(Naam_"-W7","PAP","BZ","L")="Logo smal\72\80\0\5\0"
-	Set ^cLOG(Naam_"-W7","PAP","BZ","S")="Smal\63\80\0\0\0"
-	Set ^cLOG(Naam_"-W7","PAP","BZ","SD")="Spoordokumenten\36\80\0\0\0"
-	Set ^cLOG(Naam_"-W7","PAP","BZ","SE")="Spooretiketten\18\80\0\0\0"
+	set Naam = Naam_"-W7"
+	if Naam'=$$$Server Kill ^cLOG(Naam)
+	
+	Set ^cLOG($$$Server,"PAP","BZ","B")="Breed\66\132\0\5\0"
+	Set ^cLOG($$$Server,"PAP","BZ","E1")="Etiket 9x40\9\40\1\1\0"
+	Set ^cLOG($$$Server,"PAP","BZ","L")="Logo smal\72\80\0\5\0"
+	Set ^cLOG($$$Server,"PAP","BZ","S")="Smal\63\80\0\0\0"
+	Set ^cLOG($$$Server,"PAP","BZ","SD")="Spoordokumenten\36\80\0\0\0"
+	Set ^cLOG($$$Server,"PAP","BZ","SE")="Spooretiketten\18\80\0\0\0"
 ]]></Implementation>
 </Method>
 </Class>