Index: Prod/GAData/Product/tmpKPRCreate.mac.rou
===================================================================
diff -u -r34038 -r34042
--- Prod/GAData/Product/tmpKPRCreate.mac.rou	(.../tmpKPRCreate.mac.rou)	(revision 34038)
+++ Prod/GAData/Product/tmpKPRCreate.mac.rou	(.../tmpKPRCreate.mac.rou)	(revision 34042)
@@ -627,7 +627,8 @@
  Set Txt=""
  Set:((..Val("BM")'="I")||('..Val("NMCP")))&&(..Val("BM")'="Z") Txt=##class(Prod.GAMeta.BT.TBBlumotion).TaalAfhOmsClass("",..Val("BM"),Taal,,,DC)
  If ..Val("BM")="TOB" Do  ;TOB eenheid vermelden
- . Set Txt = Txt _ " " _ ##class(DOM.PM.impl.TBXLangtekstCreator.TOBInfoBepaler).%New(Taal).BepaalTOBInfo(##this)
+ . New TOBInfoBepaler   Set TOBInfoBepaler = ##class(DOM.PM.impl.TBXLangtekstCreator.TOBInfoBepaler).%New(Taal)
+ . Set Txt = Txt _ " " _ TOBInfoBepaler.BepaalTOBInfo(##this)
  Do AddLT(Taal,.Oms,.Txt,.Optie)
  
  ; BoxSide