diff --git a/core/core-lib.el b/core/core-lib.el
index 62afe9a6f..83b891fbd 100644
--- a/core/core-lib.el
+++ b/core/core-lib.el
@@ -304,7 +304,7 @@ Body forms can access the hook's arguments through the let-bound variable
                     `(remove-hook ',hook ,fn ,local-p)
                   `(add-hook ',hook ,fn ,append-p ,local-p))
                 forms)))
-      `(progn ,@forms))))
+      `(progn ,@(if append-p (nreverse forms) forms)))))
 
 (defmacro remove-hook! (&rest args)
   "Convenience macro for `remove-hook'. Takes the same arguments as