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.8 -r1.9
--- openacs-4/packages/fs-portlet/www/fs-contents-portlet.tcl	13 Jan 2005 13:58:20 -0000	1.8
+++ openacs-4/packages/fs-portlet/www/fs-contents-portlet.tcl	27 Oct 2014 16:41:42 -0000	1.9
@@ -41,7 +41,7 @@
 
 if {$n_folders != 1} {
     # something went wrong, we can't have more than one folder here
-    ad_return -error
+    return -code error "can't have more than one folder"
 }
 
 # Get the root folder for the file storage instance we belong to, which is defined as the
@@ -73,7 +73,7 @@
     -url [ad_conn url]?folder_id=$folder_id \
     ]
 
-if [exists_and_not_null file_storage_package_id] {
+if {([info exists file_storage_package_id] && $file_storage_package_id ne "")} {
     set use_webdav_p  [parameter::get -package_id $file_storage_package_id -parameter "UseWebDavP"]
     
     if { $use_webdav_p == 1} {