Index: openacs-4/packages/new-portal/tcl/portal-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/new-portal/tcl/portal-procs.tcl,v
diff -u -r1.35 -r1.36
--- openacs-4/packages/new-portal/tcl/portal-procs.tcl	25 Oct 2001 16:09:55 -0000	1.35
+++ openacs-4/packages/new-portal/tcl/portal-procs.tcl	25 Oct 2001 16:11:32 -0000	1.36
@@ -535,7 +535,8 @@
 	    }
 
 	    if {! [empty_string_p $element_id_list] } {
-		portal::move_elements $portal_id $element_id_list $region 
+		portal::move_elements \
+			$portal_id $element_id_list $target_region 
 	    } else {
 		ns_returnredirect "portal-config.tcl?[export_url_vars portal_id]"
 	    }