Index: openacs-4/packages/file-storage/tcl/test/tclwebtest-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/tcl/test/tclwebtest-procs.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/file-storage/tcl/test/tclwebtest-procs.tcl	29 Aug 2007 14:59:31 -0000	1.4
+++ openacs-4/packages/file-storage/tcl/test/tclwebtest-procs.tcl	27 Oct 2014 16:41:32 -0000	1.5
@@ -134,7 +134,7 @@
     if { [string match  "*\?folder*id*" $response_url] } {
 
         set list_words [split "$file_name" /]
-        set short_file_name [lindex $list_words [expr [llength $list_words]-1]]
+        set short_file_name [lindex $list_words [llength $list_words]-1]
 
         if {[catch {tclwebtest::assert text $folder_name} errmsg] || [catch {tclwebtest::link find $short_file_name} errmsg]} {
             aa_error "file_storage::twt::add_file_to_folder failed $errmsg : Didn't add a file to folder"
@@ -202,7 +202,7 @@
      if { [string match  "*\?folder*id*" $response_url] } {
 
  	set list_words [split "$file_name" /]
-         set short_file_name [lindex $list_words [expr [llength $list_words]-1]]
+         set short_file_name [lindex $list_words [llength $list_words]-1]
 
          if {[catch {tclwebtest::link find $short_file_name} errmsg]} {
              aa_error "file_storage::twt::upload_file failed $errmsg : Didn't upload a File"
@@ -234,7 +234,7 @@
 
  	# Get the short file name
  	set list_words [split "$file_name" /]
- 	set short_file_name [lindex $list_words [expr [llength $list_words]-1]]
+ 	set short_file_name [lindex $list_words [llength $list_words]-1]
 
          if {![catch {tclwebtest::link find $short_file_name} errmsg]} {
              aa_error "file_storage::twt::delete_file failed $errmsg : Didn't delete a File"
@@ -297,7 +297,7 @@
 
         # Get the short file name
         set list_words [split "$file_name" /]
-        set short_file_name [lindex $list_words [expr [llength $list_words]-1]]
+        set short_file_name [lindex $list_words [llength $list_words]-1]
 
         if {![catch {tclwebtest::link find $short_file_name} errmsg]} {
             aa_error "file_storage::twt::move_file $errmsg : Didn't move a file"
@@ -329,7 +329,7 @@
 
         # Get the short file name
         set list_words [split "$file_name" /]
-        set short_file_name [lindex $list_words [expr [llength $list_words]-1]]
+        set short_file_name [lindex $list_words [llength $list_words]-1]
 
         if {[catch {tclwebtest::link find $short_file_name} errmsg]} {
             aa_error "file_storage::twt::copy_file $errmsg : Didn't copy a file"