diff --git a/CHANGELOG.md b/CHANGELOG.md
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -1,5 +1,9 @@
 # Changelog for agentic-io
 
+## 0.2.0.4 - 2026-10-06
+
+* Follows agentic's record field changes; no API change.
+
 ## 0.2.0.3 - 2026-10-06
 
 * `StoreMiss` is a constructor of a new `StoreError`, whose other constructor,
diff --git a/agentic-io.cabal b/agentic-io.cabal
--- a/agentic-io.cabal
+++ b/agentic-io.cabal
@@ -1,6 +1,6 @@
 cabal-version:      3.0
 name:               agentic-io
-version:            0.2.0.3
+version:            0.2.0.4
 synopsis:           IO helpers for agentic runtimes: concurrency, recording and replay
 description:
   Runs a flow's independent work concurrently, records model calls to a file and replays them, and loads provider keys from a .env file.
@@ -23,7 +23,7 @@
 
 library
   default-language: GHC2021
-  default-extensions: LambdaCase OverloadedStrings
+  default-extensions: DuplicateRecordFields LambdaCase NoFieldSelectors OverloadedRecordDot OverloadedStrings
   ghc-options:      -Wall
   hs-source-dirs:   src
   exposed-modules:
@@ -44,7 +44,7 @@
     , filepath         >=1.4 && <1.6
 test-suite agentic-io-test
   default-language: GHC2021
-  default-extensions: DeriveAnyClass LambdaCase OverloadedStrings
+  default-extensions: DeriveAnyClass DuplicateRecordFields LambdaCase NoFieldSelectors OverloadedRecordDot OverloadedStrings
   ghc-options:      -Wall
   type:             exitcode-stdio-1.0
   hs-source-dirs:   test
diff --git a/src/Agentic/IO/Store.hs b/src/Agentic/IO/Store.hs
--- a/src/Agentic/IO/Store.hs
+++ b/src/Agentic/IO/Store.hs
@@ -78,16 +78,16 @@
             withMVar lock $ \_ -> append file key answer
             pure answer
       one request =
-        lookupOr (judgeKey request) ("a judgement: " <> questionsText request) (encodeStoredAnswers <$> askSystemOne (systemOne rt) request)
+        lookupOr (judgeKey request) ("a judgement: " <> questionsText request) (encodeStoredAnswers <$> rt.systemOne.ask request)
           >>= decodedAs "answers to a judgement" decodeStoredAnswers
       two conversation =
-        lookupOr (turnKey conversation) ("a turn of: " <> instructionText (instruction conversation)) (encodeStoredTurn <$> askSystemTwo (systemTwo rt) conversation)
+        lookupOr (turnKey conversation) ("a turn of: " <> conversation.instruction.text) (encodeStoredTurn <$> rt.systemTwo.ask conversation)
           >>= decodedAs "a turn" decodeStoredTurn
   pure rt {systemOne = SystemOne one, systemTwo = SystemTwo two}
   where
     decodedAs :: Text -> (Value -> Maybe a) -> Value -> IO a
     decodedAs what decode' = maybe (throwIO (StoreUnreadable file what)) pure . decode'
-    questionsText r = T.intercalate "; " (map question (requestQuestions r))
+    questionsText r = T.intercalate "; " (map question r.questions)
     question = \case
       AskYesNo q -> q
       AskChoice q _ -> q
@@ -133,13 +133,13 @@
 turnKey c =
   Object
     [ ("kind", String "turn")
-    , ("path", Array [String (noteName n) | n <- path c])
-    , ("instruction", String (instructionText (instruction c)))
-    , ("input", input c)
-    , ("inputSchema", jsonSchema (inputSchema c))
-    , ("tools", Array [Object [("name", String (specName t)), ("description", String (specDescription t)), ("input", jsonSchema (specInput t))] | t <- tools c])
-    , ("outputSchema", jsonSchema (outputSchema c))
-    , ("history", Array (map exchange (history c)))
+    , ("path", Array [String n.name | n <- c.path])
+    , ("instruction", String c.instruction.text)
+    , ("input", c.input)
+    , ("inputSchema", jsonSchema c.inputSchema)
+    , ("tools", Array [Object [("name", String t.name), ("description", String t.description), ("input", jsonSchema t.input)] | t <- c.tools])
+    , ("outputSchema", jsonSchema c.outputSchema)
+    , ("history", Array (map exchange c.history))
     ]
   where
     exchange = \case
@@ -150,7 +150,7 @@
       ToolFailed t -> Object [("failed", String t)]
 
 judgeKey :: JudgeRequest -> Value
-judgeKey r = Object [("kind", String "judgement"), ("input", requestInput r), ("questions", Array (map spec (requestQuestions r)))]
+judgeKey r = Object [("kind", String "judgement"), ("input", r.input), ("questions", Array (map spec r.questions))]
   where
     spec = \case
       AskYesNo q -> Object [("yesNo", String q)]
@@ -165,7 +165,7 @@
 encodeStoredTurn (Turn (Raw r) a) = Object [("raw", r), ("action", act a)]
   where
     act = \case
-      CallTools calls -> Object [("callTools", Array [Object [("id", String (callId c)), ("name", String (callName c)), ("input", callInput c)] | c <- calls])]
+      CallTools calls -> Object [("callTools", Array [Object [("id", String c.callId), ("name", String c.name), ("input", c.input)] | c <- calls])]
       Respond v -> Object [("respond", v)]
 
 decodeStoredTurn :: Value -> Maybe Turn