Index: openacs-4/packages/file-storage/tcl/file-storage-install-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/tcl/file-storage-install-procs.tcl,v
diff -u -r1.13 -r1.13.2.1
--- openacs-4/packages/file-storage/tcl/file-storage-install-procs.tcl	5 Dec 2009 02:08:14 -0000	1.13
+++ openacs-4/packages/file-storage/tcl/file-storage-install-procs.tcl	3 Oct 2013 08:33:57 -0000	1.13.2.1
@@ -166,7 +166,7 @@
 
     set folder_id [fs::new_folder -name $name -pretty_name $pretty_name -parent_id $root -creation_user [ad_conn user_id] -creation_ip 127.0.0.1]
 
-    if {![string equal $id ""]} {
+    if {$id ne "" } {
       set ::install::xml::ids($id) $folder_id
     }
 }