Index: APPS/Halux/PPS/ALUFrees/Svg/BasisElement/CrossVH.cls.xml
===================================================================
diff -u -r60134 -r60209
--- APPS/Halux/PPS/ALUFrees/Svg/BasisElement/CrossVH.cls.xml	(.../CrossVH.cls.xml)	(revision 60134)
+++ APPS/Halux/PPS/ALUFrees/Svg/BasisElement/CrossVH.cls.xml	(.../CrossVH.cls.xml)	(revision 60209)
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="APPS.Halux.PPS.ALUFrees.Svg.BasisElement.CrossVH">
-<Super>APPS.Halux.PPS.ALUFrees.Svg.BasisElement.BasisElementSvgTooling</Super>
+<Super>APPS.Halux.PPS.ALUFrees.Svg.BasisElement.BasisElementSvgTooling,TECH.RegisteredObject</Super>
 
 <Parameter name="XMLNAME">
 <Default>crossvh</Default>
@@ -40,7 +40,7 @@
 <Implementation><![CDATA[
 	Set val=..HorizontalLine
    	Set sc = val.XMLExport("line", .format, .namespaces, .attrs, .createId, "", .oreflist, .idlist, .initialIndent, .local )
-   	if ('sc) {
+   	if $$$Not(sc) {
    		Quit sc 
    	}Else {
  		Set val=..VerticalLine