Index: openacs-4/packages/xowiki/www/admin/portal-element-add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/www/admin/portal-element-add.tcl,v
diff -u -N -r1.3 -r1.4
--- openacs-4/packages/xowiki/www/admin/portal-element-add.tcl	21 Mar 2007 12:47:46 -0000	1.3
+++ openacs-4/packages/xowiki/www/admin/portal-element-add.tcl	21 Mar 2007 14:14:58 -0000	1.4
@@ -22,9 +22,9 @@
 
 if {[db_string check_unique_name_on_page {
   select 1 from portal_element_map
-  where portal_id   = :portal_page_id 
+  where page_id     = :portal_page_id 
   and   pretty_name = :page_title
-}] eq "1"} {
+} -default 0] == 1} {
   ad_return_error [_ xowiki.portlet_title_exists_error_short] [_ xowiki.portlet_title_exists_error_long]
 } else {
   db_transaction {