Index: DOM/PM/Maatwerk/INK/impl/KorttekstBepaler.cls.xml
===================================================================
diff -u -r68046 -r68059
--- DOM/PM/Maatwerk/INK/impl/KorttekstBepaler.cls.xml	(.../KorttekstBepaler.cls.xml)	(revision 68046)
+++ DOM/PM/Maatwerk/INK/impl/KorttekstBepaler.cls.xml	(.../KorttekstBepaler.cls.xml)	(revision 68059)
@@ -46,7 +46,7 @@
 	Set Product = ##class(DOM.DomeinContext).Instance().GeefProductRolAPI().GeefAdministratiefProduct(ProductID)
 	Set KortTekstBewerktHalffabrikaat = Product.GeefKorttekst()	
 	
-	Set Korttekst = $Extract(KortTekstBewerktHalffabrikaat, 1, 8)_$J(DossierNummer,4)_"VERZ"
+	Set Korttekst = $Extract(KortTekstBewerktHalffabrikaat, 1, 7)_$J(DossierNummer,4)_"VERZ"
 	
 	Quit Korttekst
 ]]></Implementation>
Index: DOM/PM/impl/INKLangtekstCreator.cls.xml
===================================================================
diff -u -r68052 -r68059
--- DOM/PM/impl/INKLangtekstCreator.cls.xml	(.../INKLangtekstCreator.cls.xml)	(revision 68052)
+++ DOM/PM/impl/INKLangtekstCreator.cls.xml	(.../INKLangtekstCreator.cls.xml)	(revision 68059)
@@ -8,9 +8,7 @@
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
-<Implementation><![CDATA[
-	
-	Quit $$$OK
+<Implementation><![CDATA[	Quit $$$OK
 ]]></Implementation>
 </Method>
 
@@ -34,13 +32,14 @@
 	#dim Paragraaf As TECH.String
 	#dim Product As DOM.PM.AdministratiefProduct
 	#dim ProductID, KortTekstBewerktHalffabrikaat As TECH.String
+	
 	#dim ConcreetHalffabItem As DOM.PM.Maatwerk.Calc.HF.ConcreetHalffabItem = ..HalffabItemsBoom.GeefHalffabItem(##class(DOM.PM.Maatwerk.Calc.HF.enu.INKRol).BewerktHalffabrikaat())
 	
 	Set ProductID = ConcreetHalffabItem.GeefHalffab().GeefProductID()	
 	Set Product = ##class(DOM.DomeinContext).Instance().GeefProductRolAPI().GeefAdministratiefProduct(ProductID)
 	Set KortTekstBewerktHalffabrikaat = Product.GeefKorttekst()
 	
-	Do ..VoegToeLangtekstParagraaf(..Vertaler.GeefVertaling("Verzagen_van"))
+	Do ..VoegToeLangtekstParagraaf(..Vertaler.GeefVertaling("Verzagen_van") _ " " _KortTekstBewerktHalffabrikaat)
 ]]></Implementation>
 </Method>
 
@@ -53,15 +52,15 @@
 	Set iterator = ##class(TECH.ListIterator).%New(..IngegevenKenmerken.Lengtes)
 	
 	If ($Length(..IngegevenKenmerken.Lengtes) = 1) {
-		Set Paragraaf = Paragraaf _ ..IngegevenKenmerken.Lengtes.GetAt(1)
+		Set Paragraaf = Paragraaf _ " " _ ..IngegevenKenmerken.Lengtes.GetAt(1)
 	} Else {
 		Set Iterator = ##class(TECH.ListIterator).%New(..IngegevenKenmerken.Lengtes)
 		
 		While Iterator.HasNext() {
-			Set Paragraaf = Paragraaf _ Iterator.Next()
+			Set Paragraaf = Paragraaf  _ " " _ Iterator.Next()
 			
 			If Iterator.HasNext() {
-				Set Paragraaf = Paragraaf _ ..Vertaler.GeefVertaling("en")
+				Set Paragraaf = Paragraaf _ " " _ ..Vertaler.GeefVertaling("en")
 			}
 		}
 	}