Index: openacs-4/packages/xowiki/tcl/xowiki-form-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-form-procs.tcl,v
diff -u -r1.39 -r1.40
--- openacs-4/packages/xowiki/tcl/xowiki-form-procs.tcl	30 Mar 2007 12:47:38 -0000	1.39
+++ openacs-4/packages/xowiki/tcl/xowiki-form-procs.tcl	11 Apr 2007 12:36:29 -0000	1.40
@@ -120,7 +120,7 @@
     set q [$templateclass instance_select_query \
                -folder_id $folder_id \
                -select_attributes {name}]
-    db_foreach get_page_templates $q {
+    db_foreach [my qn get_page_templates] $q {
       lappend lpairs [list $name $item_id]
     } if_no_rows {
       lappend lpairs [list "(No Page Template available)" ""]