Index: Prod/ProductTekst.cls.xml
===================================================================
diff -u -r66740 -r66741
--- Prod/ProductTekst.cls.xml	(.../ProductTekst.cls.xml)	(revision 66740)
+++ Prod/ProductTekst.cls.xml	(.../ProductTekst.cls.xml)	(revision 66741)
@@ -1236,20 +1236,20 @@
 Taal = BR -> Bestelreferentie
 Array via .Local]]></Description>
 <FormalSpec>Taal:%String="N",Array:%String,Sep:%String</FormalSpec>
-<ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	Set Sep=$G(Sep,$C(13,10))
-	New Max,Value,VolgNr,Label
+	Set Sep = $Get(Sep,$C(13,10))
+	New Max, Value, VolgNr, Label
 
 	Kill Array
-	Set Array=0
+	Set Array = 0
 	Set:$$$Not((Taal="N")||(Taal="D")||(Taal="F")||(Taal="BR")) Taal = "E"
-	Set Label=$S(Taal="BR":"Bestelreferentie",1:"Omschrijving"_Taal)
-	Set Max=$S("BR"=Taal:20,1:22)
+	Set Label = $Select(Taal="BR":"Bestelreferentie",1:"Omschrijving"_Taal)
+	Set Max = $Select("BR"=Taal:20,1:22)
+	
 	For VolgNr=1:1:Max Do  Quit:Value=""
-	. Set Value=$zobjproperty(%this,Label_VolgNr)
+	. Set Value = $zobjproperty(%this,Label_VolgNr)
 	. Quit:Value=""
-	. Set Array=Array+1,Array(Array)=Value
+	. Set Array = Array + 1, Array(Array) = Value
 ]]></Implementation>
 </Method>