Index: openacs-4/packages/xowiki/tcl/package-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/package-procs.tcl,v
diff -u -r1.44 -r1.45
--- openacs-4/packages/xowiki/tcl/package-procs.tcl	7 Mar 2007 22:34:38 -0000	1.44
+++ openacs-4/packages/xowiki/tcl/package-procs.tcl	8 Mar 2007 12:05:32 -0000	1.45
@@ -825,7 +825,7 @@
         }
       }
       swa   {
-        #set allowed [acs_user::site_wide_admin_p]
+        set allowed 0
         #if {!$allowed} {
         #  ad_return_warning "Insufficient Permissions" \
         #      "Only side wide admins are allowed for this operation! ($object $method)"
Index: openacs-4/packages/xowiki/tcl/xowiki-form-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-form-procs.tcl,v
diff -u -r1.36 -r1.37
--- openacs-4/packages/xowiki/tcl/xowiki-form-procs.tcl	7 Mar 2007 22:34:38 -0000	1.36
+++ openacs-4/packages/xowiki/tcl/xowiki-form-procs.tcl	8 Mar 2007 12:05:32 -0000	1.37
@@ -82,7 +82,8 @@
           foreach __e [lrange $__spec 1 end] {
             foreach {__name __value} $__e break
             if {$__name eq "options"} {eval lappend __value [my folderspec]}
-            lappend __newspec $__name $__value
+            #lappend __newspec $__name $__value
+            lappend __newspec [list $__name $__value]
           }
           my log "--F rewritten spec is '$__newspec'"
           set __spec $__newspec
Index: openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl,v
diff -u -r1.40 -r1.41
--- openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl	25 Feb 2007 15:05:18 -0000	1.40
+++ openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl	8 Mar 2007 12:05:32 -0000	1.41
@@ -272,9 +272,9 @@
     # setting up folder id for file selector (use community folder if available)
     #
     set fs_folder_id ""
-    if {[info commands dotlrn_fs::get_community_shared_folder] ne ""} {
-      set fs_folder_id [dotlrn_fs::get_community_shared_folder \
-                            -community_id [dotlrn_community::get_community_id]]
+    if {[info commands ::dotlrn_fs::get_community_shared_folder] ne ""} {
+      set fs_folder_id [::dotlrn_fs::get_community_shared_folder \
+                            -community_id [::dotlrn_community::get_community_id]]
     }
 
     # the following line is like [$package_id url], but works as well with renamed objects