Index: openacs-4/packages/file-storage/www/file-add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/file-add.tcl,v
diff -u -r1.8.2.6 -r1.8.2.7
--- openacs-4/packages/file-storage/www/file-add.tcl	5 Aug 2004 01:56:13 -0000	1.8.2.6
+++ openacs-4/packages/file-storage/www/file-add.tcl	12 Aug 2004 22:39:47 -0000	1.8.2.7
@@ -131,6 +131,9 @@
 	    set this_title $upload_file
 	}
 	
+	if {$lock_title_p} {
+            set upload_file $this_title
+        }
 	set existing_item_id [fs::get_item_id -name $upload_file -folder_id $folder_id]
 	
 	if {![empty_string_p $existing_item_id]} {
@@ -142,9 +145,7 @@
 		-party_id $user_id \
 		-privilege write
 	}
-	if {$lock_title_p} {
-            set upload_file $this_title
-        }
+
 	fs::add_file \
 	    -name $upload_file \
 	    -item_id $this_file_id \