get agent to use current state

src/tbd/agent/instructions.clj

@@ -46,8 +46,10 @@
     (seq tools) (str (if page " Its" "\n\nYour")
                      " tools: " (str/join ", " (map :name tools))
                      ". The tools of other pages are offered once you navigate there.")
-    (seq state) (str "\n\nCurrent state of the page (JSON), already up to date as of this message — "
+    (seq state) (str "\n\nCurrent state of the page (JSON), refreshed on every message you get, so it is\n"
-                     "never call a tool just to read it, only to act:\n" (json/write-value-as-string state))))
+                     "always current, more current than anything said earlier in this conversation, a tool\n"
+                     "result marked out of date, or what you said before — never call a tool just to read it,\n"
+                     "only to act:\n" (json/write-value-as-string state))))
 
 (defn a2a
   "The A2A server's system prompt: an outside agent calling this app directly, not through a

ui/src/tbd/ui/events.cljs

@@ -382,7 +382,7 @@
 
 (def ^:private stale-result
   "What the LLM is sent in place of a result from before the user's last message."
-  "(out of date: this was read on an earlier turn and the page may have changed since. Call the tool again for the current state.)")
+  "(out of date: this was read on an earlier turn and the page may have changed since. Use \"Current state of the page\" below, if there is one, or call the tool again, for what it shows now.)")
 
 (defn- without-stale-results
   "`messages` with the content of the tool results from before the user's last message replaced by