Index: openacs-4/contrib/packages/bcms-ui-base/www/admin/set-root-folder.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/bcms-ui-base/www/admin/set-root-folder.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/contrib/packages/bcms-ui-base/www/admin/set-root-folder.tcl	27 Oct 2003 10:17:21 -0000	1.3
+++ openacs-4/contrib/packages/bcms-ui-base/www/admin/set-root-folder.tcl	15 Apr 2004 16:20:01 -0000	1.4
@@ -11,7 +11,7 @@
 set current_url [ad_return_url -urlencode]
 
 if {[exists_and_not_null new_content_type] && [exists_and_not_null current_root_folder_id]} {
-    bcms::register_content_type -folder_id $current_root_folder_id -content_type $new_content_type
+    bcms::folder::register_content_types -folder_id $current_root_folder_id -content_types [list $new_content_type]
 }
 
 set title "Set Folder"