diff --git a/components/ideintf/idecommands.pas b/components/ideintf/idecommands.pas
index cf3bddf0c2..ba2d77931f 100644
--- a/components/ideintf/idecommands.pas
+++ b/components/ideintf/idecommands.pas
@@ -1418,6 +1418,8 @@ end;
 
 destructor TIDECommand.Destroy;
 begin
+  if Category <> nil then
+    Category := nil;
   FUsers.Free;
   inherited Destroy;
 end;