3 files changed, 5 insertions, 5 deletions
diff --git a/kaakaa/tea.scm b/kaakaa/tea.scm
index 3986340..1660636 100644
--- a/kaakaa/tea.scm
+++ b/kaakaa/tea.scm
@@ -590,7 +590,7 @@ and a list of effects.
                                          ("sessionUpdate" . "tool_call")
                                          ("toolCallId" . ,(tool-call-id call))
                                          ("title" . ,(apply (tool-title tool) args))
-                                         ("kind" . ,(apply (tool-kind tool) args))
+                                         ("kind" . ,(tool-kind tool))
                                          ("rawInput" . ,(tool-call-arguments call))
                                          ("status" . "pending"))))))
                       effects))))))
diff --git a/kaakaa/tools.scm b/kaakaa/tools.scm
index dc97492..50c2603 100644
--- a/kaakaa/tools.scm
+++ b/kaakaa/tools.scm
@@ -234,7 +234,7 @@ available tools to their respective @code{<tool>} objects."
            (tool-call-result (tool-call-session-id tool-call)
                              (tool-call-id tool-call)
                              (apply (tool-title tool) args)
-                             (apply (tool-kind tool) args)
+                             (tool-kind tool)
                              (tool-call-arguments tool-call)
                              `(("role" . "tool")
                                ("tool_call_id" . ,(tool-call-id tool-call))
diff --git a/kaakaa/tools/base.scm b/kaakaa/tools/base.scm
index ebab33d..cbbb6a5 100644
--- a/kaakaa/tools/base.scm
+++ b/kaakaa/tools/base.scm
@@ -135,7 +135,7 @@ Line numbers start from 1. Output is the raw file contents without line numbers.
         #:title (lambda* (#:key path (start-line 1) end-line)
                   (format #f "read ~a:~a-~a"
                           path start-line (or end-line "")))
-        #:kind (const "read")))
+        #:kind "read"))
 
 (define %list
   (tool #:description "List files recursively.
@@ -165,7 +165,7 @@ For example, to match all scheme (.scm) files, use \"\\.scm$\"")))
                   (if pattern
                       (format #f "list ~s in ~a" pattern root)
                       (format #f "list ~a" root)))
-        #:kind (const "search")))
+        #:kind "search"))
 
 (define %search
   (tool #:description "Print lines that match a pattern (similar to grep)
@@ -215,7 +215,7 @@ For example, to match all scheme (.scm) files, use \"\\.scm$\"")))
                               files-pattern files-root pattern)
                       (format #f "search for lines matching ~s in files under ~a"
                               pattern files-root)))
-        #:kind (const "search")))
+        #:kind "search"))
 
 (define %base-tools
   `(("read" . ,%read)