Index: DOM/PM/Maatwerk/RVG/impl/KorttekstBepaler.cls.xml
===================================================================
diff -u -r69121 -r69140
--- DOM/PM/Maatwerk/RVG/impl/KorttekstBepaler.cls.xml	(.../KorttekstBepaler.cls.xml)	(revision 69121)
+++ DOM/PM/Maatwerk/RVG/impl/KorttekstBepaler.cls.xml	(.../KorttekstBepaler.cls.xml)	(revision 69140)
@@ -90,9 +90,7 @@
 	#dim AfmetingCode As TECH.String = ""
 	
 	Set AfmetingCode = IngegevenKenmerken.PocketDiepte _ "X" _ IngegevenKenmerken.PocketHoogte 
-	
-	Do ##class(Tools.Wlip).%New(26).String(##class(TECH.StringUtils).AddTrailingSpace(AfmetingCode, 8))
-	
+		
 	Quit $Extract(##class(TECH.StringUtils).AddTrailingSpace(AfmetingCode, 8), 1, 8)
 ]]></Implementation>
 </Method>