Index: vhUnitTest/TECH/Svg/BasisElementFactory/Test.cls.xml
===================================================================
diff -u -r3658 -r3695
--- vhUnitTest/TECH/Svg/BasisElementFactory/Test.cls.xml	(.../Test.cls.xml)	(revision 3658)
+++ vhUnitTest/TECH/Svg/BasisElementFactory/Test.cls.xml	(.../Test.cls.xml)	(revision 3695)
@@ -5,7 +5,7 @@
 
 <Method name="Test bestaan rect klasse na het aanmaken">
 <Implementation><![CDATA[
-	#dim Rect As TECH.Svg.Basis.Rect = ##class(TECH.Svg.BasisElementFactory).%New().MaakRechthoek(0,0,150,105)
+	Set Rect = ##class(TECH.Svg.BasisElementFactory).%New().MaakRechthoek(0,0,150,105)
 	Do ..AssertSvg(Rect, "<rect x=""0"" y=""0"" width=""150"" height=""105""></rect>")
 	Do $$$AssertEquals(Rect.Width,150)
 	Do $$$AssertEquals(Rect.Height,105)
@@ -32,7 +32,7 @@
 
 <Method name="Test bestaan van een line klasse">
 <Implementation><![CDATA[
-		#dim Line As TECH.Svg.Basis.Line = ##class(TECH.Svg.BasisElementFactory).%New().MaakLijn(35,30,35,40)
+		Set Line = ##class(TECH.Svg.BasisElementFactory).%New().MaakLijn(35,30,35,40)
 		Do ..AssertSvg(Line, "<line x1=""35"" y1=""30"" x2=""35"" y2=""40""></line>")
 		Do $$$AssertEquals(Line.X1,35)
 		Do $$$AssertEquals(Line.Y1,30)
@@ -43,7 +43,7 @@
 
 <Method name="Test bestaan van een text klasse">
 <Implementation><![CDATA[
-		#dim Text As TECH.Svg.Basis.Text = ##class(TECH.Svg.BasisElementFactory).%New().MaakText(35,30,"hoi")
+		Set Text = ##class(TECH.Svg.BasisElementFactory).%New().MaakText(35,30,"hoi")
 		Do ..AssertSvg(Text, "<text x=""35"" y=""30"">hoi</text>")
 		Do $$$AssertEquals(Text.X,35)
 		Do $$$AssertEquals(Text.Y,30)