[FIX] Fixed

Author: gevorg95

src/cls/CDV/CDV.cls

@@ -55,7 +55,7 @@ ClassMethod ScanFromClassLocal(ByRef Classes As %String) As %Status
 	For { 
 		Set Class = $Order(Classes(Class))
 		Quit:Class=""
-		If ($classmethod(Class, "%Extends", "%Persistent"))
+		If ($classmethod(Class, "%Extends", "%RegisteredObject"))
 		{
 			Set sc1 = ..ValidateClassObjects(Class)
 		}
@@ -89,23 +89,5 @@ ClassMethod ValidateClassObjects(Class As %String) As %Status
 	Quit sc
 }
 
-Storage Default
-{
-<Data name="CDVDefaultData">
-<Value name="1">
-<Value>%%CLASSNAME</Value>
-</Value>
-<Value name="2">
-<Value>Name</Value>
-</Value>
-</Data>
-<DataLocation>^CDV.CDVD</DataLocation>
-<DefaultData>CDVDefaultData</DefaultData>
-<IdLocation>^CDV.CDVD</IdLocation>
-<IndexLocation>^CDV.CDVI</IndexLocation>
-<StreamLocation>^CDV.CDVS</StreamLocation>
-<Type>%Library.CacheStorage</Type>
-}
-
 }