Index: openacs-4/packages/file-storage/www/download-archive/index.vuh
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/download-archive/index.vuh,v
diff -u -r1.5 -r1.5.8.1
--- openacs-4/packages/file-storage/www/download-archive/index.vuh	26 May 2005 08:28:46 -0000	1.5
+++ openacs-4/packages/file-storage/www/download-archive/index.vuh	8 Sep 2013 08:11:58 -0000	1.5.8.1
@@ -10,10 +10,10 @@
     {object_id:integer,optional}
 }
 
-if {[exists_and_not_null object_id]} {
+if {([info exists object_id] && $object_id ne "")} {
     set download_name [fs::get_file_system_safe_object_name -object_id $object_id]
     set ext [fs::get_archive_extension]
-    if {![empty_string_p $ext]} {
+    if {$ext ne ""} {
         append download_name ".${ext}"
     }