Index: svn/Synchronizer.cls.xml
===================================================================
diff -u -r1861 -r1862
--- svn/Synchronizer.cls.xml	(.../Synchronizer.cls.xml)	(revision 1861)
+++ svn/Synchronizer.cls.xml	(.../Synchronizer.cls.xml)	(revision 1862)
@@ -175,8 +175,8 @@
 		Set NieuweLijn = "<br/>"
 	}
 	
-	#dim ToonListMetCategories As %Boolean = (IsVoorMail)
 	#dim SynchronizeList As %ArrayOfObjects
+	#dim ToonListMetCategories As %Boolean = (IsVoorMail)
 	If ToonListMetCategories {
 		Set SynchronizeList = ..GeefSynchronizeListMetCategories("§")
 	}
@@ -218,7 +218,7 @@
 <ReturnType>%ArrayOfObjects</ReturnType>
 <Implementation><![CDATA[
 	Set itList = ##class(TECH.ListIterator).%New(..SynchronizeList)
-
+	
 	Set SynchronizeListMetCategories = ##class(%ArrayOfObjects).%New()
 	While itList.HasNext() {
 		#dim SyncStatus As svn.SyncStatus = itList.Next()
@@ -236,24 +236,26 @@
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	// De klasse TECH.StringUtils bevat ook StartsWith() en EndsWith(), maar hun implementatie is helaas niet erg performant.
-	#define StartsWith(%v,%sub)   (%v?1%sub.E)
-	#define EndsWith(%v,%sub)     (%v?.E1%sub)
-
+	// OPGELET: alles hieronder zal moeten testen op Lowercase-waarden! 
 	Set InternalName = $$$LCase(InternalName)
 	
-	Quit:($$$EndsWith(InternalName,".css")) "29. Scripts:"
-	Quit:($$$EndsWith(InternalName,".js" )) "29. Scripts:"
-	Quit:($$$EndsWith(InternalName,".csp")) "26. csp-files:"
-	Quit:($$$EndsWith(InternalName,".int")) "25. INT-files (!)"
-	Quit:($$$EndsWith(InternalName,".inc")) "24. INC-files:"
-	Quit:($$$EndsWith(InternalName,".mac"))&&(##class(TECH.StringUtils).Occurrences(InternalName,".")=1) "22. MAC-files: (zonder sub-package)"
-	Quit:($$$EndsWith(InternalName,".mac")) "21. MAC-files: (met sub-package)"
+	#dim CategoriePrefix As %String = ""
+	If ($$$Right(InternalName,4) = ".cls") {
+		Set CategoriePrefix = ..GeefCategoriePrefixVoorKlasse(InternalName)
+	}
+	Else {
+		Set CategoriePrefix = ..GeefCategoriePrefixVoorNietKlasses(InternalName)
+	}
 	
-	// Hierboven alle speciallekes voor niet .cls bestanden 
-	Quit:$$$Not($$$EndsWith(InternalName,".cls")) "0. Not categorised !!!"
-	
-	// Hieronder de opsplitsing voor .cls bestanden 
+	Quit CategoriePrefix
+]]></Implementation>
+</Method>
+
+<Method name="GeefCategoriePrefixVoorKlasse">
+<FormalSpec>InternalName:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
 	Quit:(##class(TECH.StringUtils).Contains(InternalName, ".enu.",".autocomplete.cls")) "17. enu AutoComplete:"
 	Quit:($$$StartsWith(InternalName,"vhtest.fake")) "17. UT Mock/Fake:"
 	Quit:($$$StartsWith(InternalName,"vhtest.mock")) "17. UT Mock/Fake:"
@@ -265,6 +267,26 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefCategoriePrefixVoorNietKlasses">
+<FormalSpec>InternalName:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	// De klasse TECH.StringUtils bevat ook EndsWith(), maar die implementatie is helaas niet erg performant.
+	#define EndsWith(%v,%sub)     (%v?.E1%sub)
+	
+	Quit:($$$EndsWith(InternalName,".css")) "29. Scripts:"
+	Quit:($$$EndsWith(InternalName,".js" )) "29. Scripts:"
+	Quit:($$$EndsWith(InternalName,".csp")) "26. csp-files:"
+	Quit:($$$EndsWith(InternalName,".int")) "25. INT-files (!)"
+	Quit:($$$EndsWith(InternalName,".inc")) "24. INC-files:"
+	Quit:($$$EndsWith(InternalName,".mac"))&&(##class(TECH.StringUtils).Occurrences(InternalName,".")=1) "22. MAC-files: (zonder sub-package)"
+	Quit:($$$EndsWith(InternalName,".mac")) "21. MAC-files: (met sub-package)"
+	
+	Quit "0. Not categorised !!!"
+]]></Implementation>
+</Method>
+
 <Method name="SynchronizeAll">
 <Implementation><![CDATA[
 	do ..BuildSynchronizeList()