diff --git a/copilot-core/CHANGELOG b/copilot-core/CHANGELOG
index 8ffeafc4..ad519557 100644
--- a/copilot-core/CHANGELOG
+++ b/copilot-core/CHANGELOG
@@ -1,7 +1,8 @@
-2026-10-12
+2026-10-16
         * Increase test coverage for `Copilot.Core.Type.Array`. (#767)
         * Fix errors in the documentation of `Copilot.Core.Spec`. (#769)
         * Replace tab in CHANGELOG. (#772)
+        * Fix comments for two tests in `Test.Copilot.Core.Type`. (#781)
 
 2026-09-07
         * Version bump (4.8.1). (#760)
diff --git a/copilot-core/tests/Test/Copilot/Core/Type.hs b/copilot-core/tests/Test/Copilot/Core/Type.hs
index 9f9cb6d5..128cdea6 100644
--- a/copilot-core/tests/Test/Copilot/Core/Type.hs
+++ b/copilot-core/tests/Test/Copilot/Core/Type.hs
@@ -350,7 +350,7 @@ testShowStruct = forAll arbitrary $ \k1 ->
                  forAll arbitrary $ \k2 ->
   show (S (Field k1) (Field k2)) == "<field1:" ++ show k1 ++ ",field2:" ++ show k2 ++ ">"
 
--- | Test showing a struct.
+-- | Test updating a struct.
 testUpdateStruct :: Property
 testUpdateStruct =
    forAll arbitrary $ \k1 ->
@@ -364,7 +364,7 @@ testUpdateStruct =
  where
    unField (Field x) = x
 
--- | Test showing a struct.
+-- | Test updating a struct (should fail).
 testUpdateStructFail :: Property
 testUpdateStructFail = expectFailure $
    forAll arbitrary $ \k1 ->