Index: openacs-4/packages/xowiki/tcl/weblog-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/weblog-procs.tcl,v
diff -u -N -r1.63.2.9 -r1.63.2.10
--- openacs-4/packages/xowiki/tcl/weblog-procs.tcl	23 Jun 2015 08:06:09 -0000	1.63.2.9
+++ openacs-4/packages/xowiki/tcl/weblog-procs.tcl	24 Jun 2015 15:36:07 -0000	1.63.2.10
@@ -97,16 +97,16 @@
     #my msg "tag=$tag"
     if {$tag ne ""} {
       set filter_msg "Filtered by your tag $tag"
-      append extra_from_clause ",xowiki_tags tags "
-      append extra_where_clause "and tags.item_id = ci.item_id and tags.tag = :tag and \
+      append extra_from_clause " join xowiki_tags tags on (tags.item_id = bt.item_id) "
+      append extra_where_clause "and tags.tag = :tag and \
         tags.user_id = [::xo::cc user_id]" 
       set query_parm "&tag=[ad_urlencode $tag]"
     }
     #my msg "ptag=$ptag"
     if {$ptag ne ""} {
       set filter_msg "Filtered by popular tag $ptag"
-      append extra_from_clause ",xowiki_tags tags "
-      append extra_where_clause "and tags.item_id = ci.item_id and tags.tag = :ptag " 
+      append extra_from_clause " join xowiki_tags tags on (tags.item_id = bt.item_id) "
+      append extra_where_clause "and tags.tag = :ptag " 
       set query_parm "&ptag=[ad_urlencode $ptag]"
       set query [::xo::update_query $query ptag $ptag]
     }