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