Index: openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl,v
diff -u -r1.93 -r1.94
--- openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl	25 Jul 2007 23:59:24 -0000	1.93
+++ openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl	26 Jul 2007 17:48:49 -0000	1.94
@@ -891,8 +891,13 @@
 
     set entries [list]
     db_foreach [my qn get_popular_tags] \
-        "select count(*) as nr,tag from xowiki_tags \
-         where item_id=$item_id group by tag order by nr limit $limit" {
+        [::xo::db::sql \
+	     -vars "count(*) as nr, tag" \
+	     -from "xowiki_tags" \
+	     -where "item_id=$item_id" \
+	     -groupby "tag" \
+	     -orderby "nr" \
+	     -limit $limit] {
            lappend entries "<a href='$href&ptag=[ad_urlencode $tag]'>$tag ($nr)</a>"
          }
     ns_return 200 text/html "[_ xowiki.popular_tags_label]: [join $entries {, }]"