Index: openacs-4/packages/acs-content-repository/tcl/publish-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/tcl/publish-procs.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/acs-content-repository/tcl/publish-procs.tcl	17 Sep 2001 05:16:40 -0000	1.1
+++ openacs-4/packages/acs-content-repository/tcl/publish-procs.tcl	18 Nov 2001 00:48:04 -0000	1.2
@@ -890,7 +890,7 @@
 
 } {
   if { ![template::util::is_nil root_path] } {
-    set paths [list $root_path]
+    set paths $root_path
   } else {
     # set paths [get_publish_roots]
     set paths "./"
Index: openacs-4/packages/acs-mail/sql/postgresql/acs-mail-queue-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-mail/sql/postgresql/acs-mail-queue-create.sql,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/acs-mail/sql/postgresql/acs-mail-queue-create.sql	13 Aug 2001 17:57:02 -0000	1.3
+++ openacs-4/packages/acs-mail/sql/postgresql/acs-mail-queue-create.sql	18 Nov 2001 00:48:04 -0000	1.4
@@ -84,7 +84,7 @@
 declare
 	p_message_id		alias for $1;
 begin
-	perform acs_mail_link.delete( p_message_id );
+	perform acs_mail_link__delete( p_message_id );
 
     return 1;
 end;' language 'plpgsql';
Index: openacs-4/packages/cms/tcl/publish-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/cms/tcl/publish-procs.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/cms/tcl/publish-procs.tcl	17 Sep 2001 05:16:40 -0000	1.6
+++ openacs-4/packages/cms/tcl/publish-procs.tcl	18 Nov 2001 00:48:04 -0000	1.7
@@ -331,7 +331,7 @@
       # If live revision exists, publish it
       if { ![template::util::is_nil revision_id] && \
               [item::is_publishable $item_id] } {
-        publish_revision $revision_id
+          publish_revision $revision_id -root_path [publish::get_publish_roots]
       } else {
         # Delete the published files
         publish::unpublish_item $item_id