From 88112be112658642c72444209446f7d9bf545a96 Mon Sep 17 00:00:00 2001
From: Rick Hennigan <richardh@wolfram.com>
Date: Wed, 20 Nov 2024 11:41:42 -0500
Subject: [PATCH] Add paclet version to Chatbook service caller string

---
 PacletInfo.wl             | 2 +-
 Source/Chatbook/Common.wl | 5 ++++-
 2 files changed, 5 insertions(+), 2 deletions(-)

diff --git a/PacletInfo.wl b/PacletInfo.wl
index 93aaad23..04e65be8 100644
--- a/PacletInfo.wl
+++ b/PacletInfo.wl
@@ -1,7 +1,7 @@
 PacletObject[ <|
     "Name"           -> "Wolfram/Chatbook",
     "PublisherID"    -> "Wolfram",
-    "Version"        -> "1.5.2",
+    "Version"        -> "1.5.2.1",
     "WolframVersion" -> "14.1+",
     "Description"    -> "Wolfram Notebooks + LLMs",
     "License"        -> "MIT",
diff --git a/Source/Chatbook/Common.wl b/Source/Chatbook/Common.wl
index 129ebe7d..3312fa87 100644
--- a/Source/Chatbook/Common.wl
+++ b/Source/Chatbook/Common.wl
@@ -850,7 +850,7 @@ setServiceCaller[ eval_, caller_ ] := (
 );
 
 setServiceCaller[ eval_, caller: $$serviceCaller, { current___ } ] :=
-    Block[ { ServiceConnectionUtilities`$Caller = DeleteDuplicates @ Flatten @ { current, "Chatbook", caller } },
+    Block[ { ServiceConnectionUtilities`$Caller = DeleteDuplicates @ Flatten @ { current, $chatbookCaller, caller } },
         eval
     ];
 
@@ -860,6 +860,9 @@ setServiceCaller[ eval_, caller_, _ ] :=
 setServiceCaller // Attributes = { HoldFirst };
 setServiceCaller // endDefinition;
 
+
+$chatbookCaller := $chatbookCaller = "Chatbook-" <> $thisPaclet[ "Version" ];
+
 (* ::**************************************************************************************************************:: *)
 (* ::Subsubsection::Closed:: *)
 (*chatbookServiceCaller*)