Index: openacs-4/packages/logger/tcl/entry-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/logger/tcl/entry-procs.tcl,v
diff -u -N -r1.3.8.4 -r1.3.8.5
--- openacs-4/packages/logger/tcl/entry-procs.tcl	27 Apr 2005 07:21:19 -0000	1.3.8.4
+++ openacs-4/packages/logger/tcl/entry-procs.tcl	9 May 2005 14:49:37 -0000	1.3.8.5
@@ -85,11 +85,13 @@
                  :entry_id)
              "
 
-        logger::variable::get -variable_id [logger::project::get_primary_variable -project_id $project_id] -array variable_array
+        logger::project::get -project_id $project_id -array project_array
+	logger::variable::get -variable_id [logger::project::get_primary_variable -project_id $project_id] -array variable_array
+        set log_title "$project_array(name)\: [pm::task::name -task_item_id $task_item_id]: logged $value $variable_array(unit)"
 
         pm::util::general_comment_add \
             -object_id $task_item_id \
-            -title "Logged $value $variable_array(unit)" \
+            -title $log_title \
             -comment $description \
             -mime_type "text/html" \
             -user_id [ad_conn user_id] \