diff --git a/wst/trunk/type_lib_edtr/uftypealiasedit.pas b/wst/trunk/type_lib_edtr/uftypealiasedit.pas
index 7b6b96512..25887aa0e 100644
--- a/wst/trunk/type_lib_edtr/uftypealiasedit.pas
+++ b/wst/trunk/type_lib_edtr/uftypealiasedit.pas
@@ -223,7 +223,7 @@ begin
       end;
     end;
   finally
-    if ( not Result ) and ( UpdateType = etCreate ) and ( AObject = nil ) then begin
+    if ( not Result ) and ( UpdateType = etCreate ) and ( AObject = nil ) and ( FObject <> nil ) then begin
       FSymbolTable.CurrentModule.InterfaceSection.Declarations.Extract(FObject);
       FSymbolTable.CurrentModule.InterfaceSection.Types.Extract(FObject);
       FSymbolTable.CurrentModule.InterfaceSection.Classes.Extract(FObject);