Index: TECH/Svg/Basis/Circle.cls.xml
===================================================================
diff -u -r3644 -r3668
--- TECH/Svg/Basis/Circle.cls.xml	(.../Circle.cls.xml)	(revision 3644)
+++ TECH/Svg/Basis/Circle.cls.xml	(.../Circle.cls.xml)	(revision 3668)
@@ -26,65 +26,13 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>MiddelpuntX:%Integer,MiddelpuntY:%Integer,Straal:%Integer</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
-<Implementation><![CDATA[
-	Set ..MiddelpuntX = MiddelpuntX
-	Set ..MiddelpuntY = MiddelpuntY
-	Set ..Straal = Straal
-	Quit $$$OK
+<Implementation><![CDATA[	Quit $$$OK
 ]]></Implementation>
 </Method>
-
-<Storage name="Default">
-<Type>%Library.CacheSerialState</Type>
-<State>CircleState</State>
-<Data name="CircleState">
-<Subscript>"Circle"</Subscript>
-<Value name="1">
-<Value>CX</Value>
-</Value>
-<Value name="2">
-<Value>CY</Value>
-</Value>
-<Value name="3">
-<Value>R</Value>
-</Value>
-<Value name="4">
-<Value>Fill</Value>
-</Value>
-<Value name="5">
-<Value>Stroke</Value>
-</Value>
-<Value name="6">
-<Value>StrokeWidth</Value>
-</Value>
-<Value name="7">
-<Value>overflow</Value>
-</Value>
-<Value name="8">
-<Value>Overflow</Value>
-</Value>
-<Value name="9">
-<Value>StrokeDashArray</Value>
-</Value>
-<Value name="10">
-<Value>Opacity</Value>
-</Value>
-<Value name="11">
-<Value>MiddelpuntX</Value>
-</Value>
-<Value name="12">
-<Value>MiddelpuntY</Value>
-</Value>
-<Value name="13">
-<Value>Straal</Value>
-</Value>
-</Data>
-</Storage>
 </Class>