Index: vhUnitTest/DOM/PM/TestData.cls.xml
===================================================================
diff -u -r31293 -r31294
--- vhUnitTest/DOM/PM/TestData.cls.xml	(.../TestData.cls.xml)	(revision 31293)
+++ vhUnitTest/DOM/PM/TestData.cls.xml	(.../TestData.cls.xml)	(revision 31294)
@@ -39,7 +39,9 @@
 	#dim KortTekst As %String
 	
 	Set ^KLAS("K",1) = "2\13\2\\OL\ABK\\837\\Antislipmatten Basis Badkamer\\1\1009"
+	Set ^KPGR1("13OL02ABK ") = "Antislipmatten Basis Badkamer\Produits de base nattes antidéparantes bain\Orgalux\\1\1\ABK"
 	Set ^KLAS("K",2) = "3\13\2\1\OL\ABK\ABG/OL\837\1\Antislipmatten Badkamer grijs\.58\1\1009\E\\\.44\\\\1"
+	Set ^KPSG1("13OL02ABK01ABG/OL ") = "Antislipmatten Badkamer grijs\nattes antidéparantes gris bain\Orgalux\\1\2\ABG/OL"
 	
 	for PRNr = PRNrStart:1:PRNrStop {  
 		Set Nr = $translate($justify(PRNr - PRNrStart,2)," ",0)
@@ -160,7 +162,9 @@
 	do ##class(vhLib.OldSchool).InitVars()
 	
 	Kill ^KLAS("K",1)
+	Kill ^KPGR1("13OL02ABK ")
 	Kill ^KLAS("K",2)
+	Kill ^KPSG1("13OL02ABK01ABG/OL ")
 	
 	#dim PRNr As %Integer = 0
 	for PRNr = PRNrStart:1:PRNrStop {