Index: DW/StockWaarde.cls.xml
===================================================================
diff -u -r47102 -r47114
--- DW/StockWaarde.cls.xml	(.../StockWaarde.cls.xml)	(revision 47102)
+++ DW/StockWaarde.cls.xml	(.../StockWaarde.cls.xml)	(revision 47114)
@@ -307,9 +307,10 @@
 <Method name="StandaardAfwijkingCalculatie">
 <ClassMethod>1</ClassMethod>
 <FormalSpec><![CDATA[&arHist,MinAantalWeken:%Decimal]]></FormalSpec>
+<ProcedureBlock>1</ProcedureBlock>
 <Implementation><![CDATA[
 	; Gemiddelde
-	New SomKwadraat,Som,Aantal,AantalStuks,IdxDate
+	#dim SomKwadraat,Som,Aantal,AantalStuks,IdxDate As %Numeric
 	Set SomKwadraat=0,Som=0,Aantal=0
 	Set IdxDate=$O(arHist(""))
 	While IdxDate'=""
@@ -326,7 +327,7 @@
 	
 	If Aantal>MinAantalWeken,Som>0
 	{
-		New Gemiddelde,Variantie,StandaardAfwijking
+		#dim Gemiddelde,Variantie,StandaardAfwijking As %Numeric
 		Set Gemiddelde=Som/Aantal
 		; Afwijking
 		Set Variantie=SomKwadraat/Aantal-(Gemiddelde*Gemiddelde)
@@ -369,9 +370,10 @@
 <Method name="GemiddeldeCalculatie">
 <ClassMethod>1</ClassMethod>
 <FormalSpec><![CDATA[&arHist,MinAantalWeken:%Decimal]]></FormalSpec>
+<ProcedureBlock>1</ProcedureBlock>
 <Implementation><![CDATA[
 	; Gemiddelde
-	New Som,Aantal,IdxDate,AantalStuks,Gemiddelde
+	#dim Som,Aantal,IdxDate,AantalStuks,Gemiddelde As %Numeric
 	Set Som=0,Aantal=0
 	Set IdxDate=$O(arHist(""))
 	While IdxDate'=""