diff --git a/components/onlinepackagemanager/opkman_mainfrm.pas b/components/onlinepackagemanager/opkman_mainfrm.pas
index d5804ab39f..9bb002d02e 100644
--- a/components/onlinepackagemanager/opkman_mainfrm.pas
+++ b/components/onlinepackagemanager/opkman_mainfrm.pas
@@ -946,7 +946,12 @@ var
 begin
   if MessageDlgEx(rsMainFrm_rsRepositoryCleanup0, mtInformation, [mbYes, mbNo], Self) = mrYes then
   begin
-    Cnt := SerializablePackages.Cleanup;
+    Screen.Cursor := crHourGlass;
+    try
+      Cnt := SerializablePackages.Cleanup;
+    finally
+      Screen.Cursor := crDefault;
+    end;
     MessageDlgEx(Format(rsMainFrm_rsRepositoryCleanup1, [IntToStr(Cnt)]),
       mtInformation, [mbOk], Self);
   end;