diff --git a/wst/trunk/ws_helper/ws_parser_imp.pas b/wst/trunk/ws_helper/ws_parser_imp.pas
index 8d5c34b59..22cbcd234 100644
--- a/wst/trunk/ws_helper/ws_parser_imp.pas
+++ b/wst/trunk/ws_helper/ws_parser_imp.pas
@@ -1660,6 +1660,10 @@ begin
       FBaseNameSpace := s_xs;
       Result := ParseOtherContent();
     end;
+    if ( Result <> nil ) then begin
+      if ( IsEmbeddedType(Result) <> FEmbededDef ) then
+        SetAsEmbeddedType(Result,FEmbededDef);
+    end;
 {$IFDEF WST_HANDLE_DOC}
     if ( Result <> nil ) then
       ParseDocumentation(Result);