Index: DOM/PM/Maatwerk/RVG/impl/KorttekstBepaler.cls.xml
===================================================================
diff -u -r72924 -r74479
--- DOM/PM/Maatwerk/RVG/impl/KorttekstBepaler.cls.xml	(.../KorttekstBepaler.cls.xml)	(revision 72924)
+++ DOM/PM/Maatwerk/RVG/impl/KorttekstBepaler.cls.xml	(.../KorttekstBepaler.cls.xml)	(revision 74479)
@@ -62,6 +62,8 @@
 		Set CorpusConstructieCode = "S"
 	} ElseIf (IngegevenKenmerken.CorpusConstructie = ..Enum.CorpusConstructie.ZonderSokkel) {
 		Set CorpusConstructieCode = "V"
+	} ElseIf (IngegevenKenmerken.CorpusConstructie = ..Enum.CorpusConstructie.Werktop) {
+		Set CorpusConstructieCode = "W"
 	}
 	
 	Quit CorpusConstructieCode