diff --git a/lisp/core-defpackage.lisp b/lisp/core-defpackage.lisp
index 8c20050..44d6a32 100644
--- a/lisp/core-defpackage.lisp
+++ b/lisp/core-defpackage.lisp
@@ -217,6 +217,10 @@
         (format nil "Available tools:~%~a" (apply #'concatenate 'string (sort descriptions #'string<)))
         "No tools registered.")))
 
+;; Alias: generate-tool-belt-prompt → cognitive-tool-prompt
+(defun generate-tool-belt-prompt ()
+  (cognitive-tool-prompt))
+
 (defun log-message (msg &rest args)
   "Centralized, thread-safe logging for the harness."
   (let ((formatted-msg (apply #'format nil msg args)))
diff --git a/org/core-defpackage.org b/org/core-defpackage.org
index d6bf0d2..a7b7f9c 100644
--- a/org/core-defpackage.org
+++ b/org/core-defpackage.org
@@ -270,6 +270,10 @@ Tools that the LLM can invoke are registered here. Each tool has a name, descrip
     (if descriptions
         (format nil "Available tools:~%~a" (apply #'concatenate 'string (sort descriptions #'string<)))
         "No tools registered.")))
+
+;; Alias: generate-tool-belt-prompt → cognitive-tool-prompt
+(defun generate-tool-belt-prompt ()
+  (cognitive-tool-prompt))
 #+end_src
 
 *** Centralized logging (log-message)