Index: openacs-4/packages/attachments/www/admin/new-root-folder-map.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/attachments/www/admin/new-root-folder-map.tcl,v
diff -u -r1.5 -r1.5.4.1
--- openacs-4/packages/attachments/www/admin/new-root-folder-map.tcl	7 Nov 2002 15:11:51 -0000	1.5
+++ openacs-4/packages/attachments/www/admin/new-root-folder-map.tcl	20 Apr 2005 11:29:30 -0000	1.5.4.1
@@ -48,7 +48,7 @@
     ad_return_template
 
 } else {
-    if {[attachments::root_folder_p -pacakge_id $package_id]} {
+    if {[attachments::root_folder_p -package_id $package_id]} {
         # sanity check that the attachments_root_folder and fs_root_folder match
         set attachments_root_folder [attachments::get_root_folder \
              -package_id $package_id ]