diff --git a/wst/trunk/ws_helper/pascal_parser_intf.pas b/wst/trunk/ws_helper/pascal_parser_intf.pas
index 13109128c..5cba37363 100644
--- a/wst/trunk/ws_helper/pascal_parser_intf.pas
+++ b/wst/trunk/ws_helper/pascal_parser_intf.pas
@@ -58,7 +58,7 @@ type
       const AName : string;
             AIntf : TPasClassType;
             AParent: TPasElement
-    );
+    );reintroduce;
     destructor Destroy();override;
     property Intf : TPasClassType read FIntf;
     property Address : string read FAddress write FAddress;
diff --git a/wst/trunk/ws_helper/xsd_generator.pas b/wst/trunk/ws_helper/xsd_generator.pas
index f2fa5539b..8b0761e95 100644
--- a/wst/trunk/ws_helper/xsd_generator.pas
+++ b/wst/trunk/ws_helper/xsd_generator.pas
@@ -183,7 +183,7 @@ type
     procedure HandleTypeUsage(
       ATargetNode,
       ASchemaNode  : TDOMElement
-    );
+    );override;
   end;
 
 {$IFDEF WST_UNICODESTRING}