diff --git a/components/ideintf/lazideintf.pas b/components/ideintf/lazideintf.pas
index 116080af10..cc430adfd2 100644
--- a/components/ideintf/lazideintf.pas
+++ b/components/ideintf/lazideintf.pas
@@ -771,6 +771,8 @@ var
   CurResult: TModalResult;
 begin
   Result := mrOK;
+  if not Assigned(FLazarusIDEHandlers[lihtPackageBuilding]) then
+    Exit;
   for I := 0 to FLazarusIDEHandlers[lihtPackageBuilding].Count-1 do
   begin
     Handler := TLazPackageBuildingEvent(FLazarusIDEHandlers[lihtPackageBuilding][I]);