Index: openacs-4/packages/file-storage/tcl/file-storage-dav-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/tcl/file-storage-dav-procs.tcl,v
diff -u -r1.10 -r1.11
--- openacs-4/packages/file-storage/tcl/file-storage-dav-procs.tcl	26 May 2005 08:28:45 -0000	1.10
+++ openacs-4/packages/file-storage/tcl/file-storage-dav-procs.tcl	27 Oct 2014 16:41:31 -0000	1.11
@@ -30,7 +30,7 @@
     set root_folder_id [oacs_dav::conn folder_id]
     set uri [oacs_dav::conn uri]
 
-    if {![string equal "unlocked" [tdav::check_lock $uri]]} {
+    if {"unlocked" ne [tdav::check_lock $uri] } {
 	return [list 423]
     }
     
@@ -42,12 +42,12 @@
     array set sn [site_node::get -url $uri]
     set package_id $sn(package_id)
     ns_log debug "\n ----- \n file_storage::dav::put package_id $package_id \n parent_id $parent_id \n uri $uri \n ----- \n "
-    if {[empty_string_p $parent_id]} {
+    if {$parent_id eq ""} {
 	set response [list 409]
 	return $response
     }
     
-    if {[empty_string_p $item_id]} {
+    if {$item_id eq ""} {
         fs::add_file \
         -package_id $package_id \
         -name $name \
@@ -101,10 +101,10 @@
     set item_id [oacs_dav::conn item_id]
     set fname [oacs_dav::conn item_name]
     set parent_id [oacs_dav::item_parent_folder_id $uri]
-    if {[empty_string_p $parent_id]} {
+    if {$parent_id eq ""} {
 	return [list 409]
     }
-    if { ![empty_string_p $item_id]} {
+    if { $item_id ne ""} {
 	return [list 405]
     }