Index: TECH/FrequentieTabel.cls.xml
===================================================================
diff -u -r700 -r858
--- TECH/FrequentieTabel.cls.xml	(.../FrequentieTabel.cls.xml)	(revision 700)
+++ TECH/FrequentieTabel.cls.xml	(.../FrequentieTabel.cls.xml)	(revision 858)
@@ -9,6 +9,25 @@
 <Private>1</Private>
 </Property>
 
+<Method name="Instance">
+<ClassMethod>1</ClassMethod>
+<ReturnType>TECH.FrequentieTabel</ReturnType>
+<Implementation><![CDATA[
+	#dim %TECHFrequentieTabel As TECH.FrequentieTabel
+	If ($G(%TECHFrequentieTabel) = "") || ('$IsObject(%TECHFrequentieTabel)) || ('%TECHFrequentieTabel.%ClassIsLatestVersion())
+	{
+		Set %TECHFrequentieTabel = ..%New()
+	}
+	Quit %TECHFrequentieTabel
+]]></Implementation>
+</Method>
+
+<Method name="Reset">
+<FormalSpec>Item:%String</FormalSpec>
+<Implementation><![CDATA[	Do ..Items.SetAt(0,Item)
+]]></Implementation>
+</Method>
+
 <Method name="Verhoog">
 <FormalSpec>Item:%String</FormalSpec>
 <Implementation><![CDATA[	Do ..VerhoogMetAantal(Item, 1)
Index: TECH/StringUtils.cls.xml
===================================================================
diff -u -r759 -r858
--- TECH/StringUtils.cls.xml	(.../StringUtils.cls.xml)	(revision 759)
+++ TECH/StringUtils.cls.xml	(.../StringUtils.cls.xml)	(revision 858)
@@ -391,6 +391,22 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GetLastPart">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>String:%String,Delimiter:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit $piece(String,Delimiter,$length(String,Delimiter))
+]]></Implementation>
+</Method>
+
+<Method name="StripLastPart">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>String:%String,Delimiter:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit $piece(String,Delimiter,1,$length(String,Delimiter)-1)
+]]></Implementation>
+</Method>
+
 <Method name="Execute">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>String:%String</FormalSpec>