diff --git a/ChangeLog.txt b/ChangeLog.txt
index cc4fb35fb2..8ffc60ffda 100644
--- a/ChangeLog.txt
+++ b/ChangeLog.txt
@@ -7,6 +7,11 @@
    Entries may not always be in chronological/commit order.
    See license at the end of file. */
 
+2024-10-25 14:09 UTC+0200 Aleksander Czajczynski (hb fki.pl)
+  * contrib/hbziparc/ziparc.prg
+    ! return value of hb_zipDeleteFile() is not logical,
+      fix by Grigory Filatov.
+
 2024-10-18 07:56 UTC+0200 Aleksander Czajczynski (hb fki.pl)
   * src/common/hbver.c
     * guard Win10 build number getter from the unknown,
diff --git a/contrib/hbziparc/ziparc.prg b/contrib/hbziparc/ziparc.prg
index 694e2a6209..c34e082849 100644
--- a/contrib/hbziparc/ziparc.prg
+++ b/contrib/hbziparc/ziparc.prg
@@ -496,7 +496,7 @@ FUNCTION hb_ZipDeleteFiles( cFileName, acFiles )
    ENDIF
 
    FOR EACH cFileToProc IN acFiles
-      lRetVal := lRetVal .AND. hb_zipDeleteFile( cFileName, cFileToProc )
+      lRetVal := lRetVal .AND. ( hb_zipDeleteFile( cFileName, cFileToProc ) == UNZ_OK )
    NEXT
 
    RETURN lRetVal