Index: openacs-4/packages/general-comments/tcl/general-comments-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/general-comments/tcl/general-comments-procs.tcl,v
diff -u -r1.17 -r1.18
--- openacs-4/packages/general-comments/tcl/general-comments-procs.tcl	24 Jan 2005 00:29:38 -0000	1.17
+++ openacs-4/packages/general-comments/tcl/general-comments-procs.tcl	9 Mar 2005 17:07:09 -0000	1.18
@@ -108,9 +108,10 @@
                                       -parameter "AllowDisplayMyCommentsLinkP" \
                                       -default t]
 
-    if {[string is true $my_comments_only_p] && \
-            [string is true $allow_my_comments_only_p]} {
-        set my_comments_clause "and o.creation_user = :user_id"
+    if {[string is true $my_comments_only_p] 
+        && [string is true $allow_my_comments_only_p]} {
+	set user_id [ad_conn user_id]
+        set my_comments_clause "and o.creation_user = :user_id "
     } else {
         set my_comments_clause ""
     }