Index: TECH/Svg/Basis/Path/Coordinates.cls.xml
===================================================================
diff -u -r3637 -r3647
--- TECH/Svg/Basis/Path/Coordinates.cls.xml	(.../Coordinates.cls.xml)	(revision 3637)
+++ TECH/Svg/Basis/Path/Coordinates.cls.xml	(.../Coordinates.cls.xml)	(revision 3647)
@@ -4,11 +4,11 @@
 <Super>%SerialObject</Super>
 
 <Property name="X">
-<Type>%Float</Type>
+<Type>%Decimal</Type>
 </Property>
 
 <Property name="Y">
-<Type>%Float</Type>
+<Type>%Decimal</Type>
 </Property>
 
 <Method name="%OnNew">
@@ -28,8 +28,6 @@
 <State>CoordinatesState</State>
 <StreamLocation>^TECH.Svg.Basis634E.CoordinatesS</StreamLocation>
 <Data name="CoordinatesState">
-<Structure>listnode</Structure>
-<Subscript/>
 <Value name="1">
 <Value>X</Value>
 </Value>
Index: TECH/Svg/Basis/Path.cls.xml
===================================================================
diff -u -r3637 -r3647
--- TECH/Svg/Basis/Path.cls.xml	(.../Path.cls.xml)	(revision 3637)
+++ TECH/Svg/Basis/Path.cls.xml	(.../Path.cls.xml)	(revision 3647)
@@ -21,19 +21,17 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>CoordinatesList:%ListOfObjects(ELEMENT="TECH.Svg.Basis.Path.Coordinates"),Aflsluiten:%Boolean=0</FormalSpec>
+<FormalSpec>CoordinatesList:%ListOfObjects(ELEMENT="TECH.Svg.Basis.Path.Coordinates"),Aflsluiten:%Boolean=1</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	If (Aflsluiten =0)
-	{ 
-	Do ..VoegToeInhoudD(CoordinatesList)
+	If (Aflsluiten =0) { 
+		Do ..VoegToeInhoudD(CoordinatesList)
 	}
-	Else
-	{
-	 Do ..VoegToeInhoudAfgelsotenD(CoordinatesList)
+	Else {
+		Do ..VoegToeInhoudAfgelsotenD(CoordinatesList)
 	}
 	
 	Quit $$$OK
@@ -62,8 +60,7 @@
 <FormalSpec>CoordinatesList:%ListOfObjects(ELEMENT="TECH.Svg.Basis.Path.Coordinates")</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	If (CoordinatesList.Count() <3)
-	{
+	If (CoordinatesList.Count() <3) {
 	Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Het afsluiten van een figuur is pas praktisch als er meer dan 2 coördinaten aanwezig zijn."))
 	}
 	Set CoordinatesIterator = ##class(TECH.ListIterator).%New(CoordinatesList)
@@ -77,6 +74,7 @@
 		#dim Coordinates As TECH.Svg.Basis.Path.Coordinates = CoordinatesIterator.Next()
 		Set ..D = ##class(TECH.StringUtils).Append(..D, "L"_Coordinates.X_" "_Coordinates.Y, " ")
 	} 
+	
 	Set ..D = ##class(TECH.StringUtils).Append(..D, "z","")
 ]]></Implementation>
 </Method>