Index: Res/Vertaling.cls.xml
===================================================================
diff -u -r30145 -r36848
--- Res/Vertaling.cls.xml	(.../Vertaling.cls.xml)	(revision 30145)
+++ Res/Vertaling.cls.xml	(.../Vertaling.cls.xml)	(revision 36848)
@@ -212,7 +212,7 @@
  Set VtlID=Groep_"||"_Intern_"||"_TextType_"||"_Taal
  &sql(SELECT Vertaling,IsHTML INTO :Val,:IsHTML FROM Res.Vertaling WHERE (ID=:VtlID))
 
- Set Result=""
+ New Result Set Result=""
  If $D(Val) Do
  . Set oVertaling=..%New()
  . Set oVertaling.Taal=Taal
@@ -235,11 +235,11 @@
 <FormalSpec>Groep:%String,Intern:%String,TextType:%String="L",Taal:%String="N",Vertaling:%String</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
- New VtlID,blnNew,oVertaling,Result   ; ,Val,IsHTML
+ New VtlID,blnNew,oVertaling   ; ,Val,IsHTML
  Set:($E(Intern,2)="%") Groep="%"   ; "%"-sleutels worden opgezocht in de "%"-vertalingsgroep
  Set VtlID=Groep_"||"_Intern_"||"_TextType_"||"_Taal
  Set blnNew='..%ExistsId(VtlID)
- Set Result=""
+ New Result Set Result=""
  If blnNew Do
  . Set oVertaling=..%New()
  . Do oVertaling.TaalSetObjectId(Taal)