diff --git a/ChangeLog.md b/ChangeLog.md
index bd396fbed2..efe41a37ba 100644
--- a/ChangeLog.md
+++ b/ChangeLog.md
@@ -15,6 +15,8 @@ Behavior changes:
 * `stack hpc report`, `stack list`, `stack templates` and `stack uninstall`
   output their information to the standard output stream rather than to the
   standard error stream. Logging is still to the standard error stream.
+* `stack upgrade` no longer assumes that binary upgrade is not supported on a
+  AArch64 machine architecture.
 
 Other enhancements:
 
diff --git a/src/Stack/Setup.hs b/src/Stack/Setup.hs
index 2d1fd5b943..6f3a4bfad8 100644
--- a/src/Stack/Setup.hs
+++ b/src/Stack/Setup.hs
@@ -2797,11 +2797,14 @@ preferredPlatforms = do
       I386 -> pure "i386"
       X86_64 -> pure "x86_64"
       Arm -> pure "arm"
+      AArch64 -> pure "aarch64"
       _ -> prettyThrowM $ BinaryUpgradeOnArchUnsupported arch'
   let hasgmp4 = False -- FIXME import relevant code from Stack.Setup?
                       -- checkLib $(mkRelFile "libgmp.so.3")
       suffixes
+          -- 'gmp4' ceased to be relevant after Stack 1.9.3 (December 2018).
         | hasgmp4 = ["-static", "-gmp4", ""]
+          -- 'static' will cease to be relevant after Stack 2.11.1 (May 2023).
         | otherwise = ["-static", ""]
   pure $ map (\suffix -> (isWindows, concat [os, "-", arch, suffix])) suffixes