Index: openacs-4/packages/fs-portlet/www/fs-contents-portlet.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/fs-portlet/www/fs-contents-portlet.tcl,v
diff -u -r1.11 -r1.12
--- openacs-4/packages/fs-portlet/www/fs-contents-portlet.tcl	7 Aug 2017 23:48:12 -0000	1.11
+++ openacs-4/packages/fs-portlet/www/fs-contents-portlet.tcl	8 Apr 2018 05:01:03 -0000	1.12
@@ -68,7 +68,7 @@
 set folder_name [fs_get_folder_name $folder_id]
 set folder_url [export_vars -base [ad_conn url] {folder_id}]
 
-if {([info exists file_storage_package_id] && $file_storage_package_id ne "")} {
+if {$file_storage_package_id ne ""} {
     set use_webdav_p  [parameter::get -package_id $file_storage_package_id -parameter "UseWebDavP"]
     
     if { $use_webdav_p == 1} { 
Index: openacs-4/packages/fs-portlet/www/fs-portlet.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/fs-portlet/www/fs-portlet.tcl,v
diff -u -r1.29 -r1.30
--- openacs-4/packages/fs-portlet/www/fs-portlet.tcl	8 Jan 2018 09:57:56 -0000	1.29
+++ openacs-4/packages/fs-portlet/www/fs-portlet.tcl	8 Apr 2018 05:01:03 -0000	1.30
@@ -50,6 +50,7 @@
     set folder_id $user_root_folder
     set user_root_folder_present_p 1
     set use_ajaxfs_p 0
+    set file_storage_package_id ""
 } else {
     set folder_id [lindex $list_of_folder_ids 0]
     set file_storage_node_id [site_node::get_node_id_from_object_id \
@@ -158,7 +159,7 @@
 set folder_name [fs_get_folder_name $folder_id]
 set folder_url [ad_conn url]?[ad_conn query]&folder_id=$folder_id
 
-if {([info exists file_storage_package_id] && $file_storage_package_id ne "")} {
+if {$file_storage_package_id ne ""} {
     set use_webdav_p  [parameter::get -package_id $file_storage_package_id -parameter "UseWebDavP"]
     
     if { $use_webdav_p == 1} {