Index: openacs-4/packages/evaluation-portlet/tcl/test/tclwebtest-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/evaluation-portlet/tcl/test/tclwebtest-procs.tcl,v
diff -u -N -r1.2.8.1 -r1.2.8.2
--- openacs-4/packages/evaluation-portlet/tcl/test/tclwebtest-procs.tcl	19 Aug 2014 17:30:26 -0000	1.2.8.1
+++ openacs-4/packages/evaluation-portlet/tcl/test/tclwebtest-procs.tcl	19 Aug 2014 17:32:56 -0000	1.2.8.2
@@ -179,7 +179,7 @@
     if { [string match  "*/classes/*/evaluation/admin/tasks/solution-add-edit*" $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 "$short_file_name" } errmsg] } {
 	    aa_error  "evaluation::twt::view_task_solution failed $errmsg : Didn't view a Task Solution"
@@ -255,7 +255,7 @@
     if {[string match  "*task-add-edit*$task_id*$grade_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 "$task_name" } errmsg] || [catch {tclwebtest::assert text "$task_description" } errmsg] || [catch {tclwebtest::assert text "$short_file_name" } errmsg] } {
 	    
@@ -305,7 +305,7 @@
     if {[string match $class_material_url $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 "$task_name" } errmsg]} {
 	    aa_error  "evaluation::twt::edit_task failed $errmsg : Didn't edit a Task"
@@ -450,7 +450,7 @@
     if { [string match  "*/classes/*/evaluation/admin/tasks/solution-add-edit*"  $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]
 	aa_log $short_file_name
         if { [catch {tclwebtest::assert text "$short_file_name" } errmsg] } {
             aa_error  "evaluation::twt::view_project_solution failed $errmsg : Didn't view a Project Solution"
@@ -526,7 +526,7 @@
     if {[string match  "*/dotlrn/classes*/evaluation/admin/tasks/task-add-edit*" $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 "$project_name" } errmsg] || [catch {tclwebtest::assert text "$project_description" } errmsg] || [catch {tclwebtest::assert text "$short_file_name" } errmsg] } {
 
@@ -577,7 +577,7 @@
     if {[string match  "$class_material_url" $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 "$project_name" } errmsg]} {
             aa_error  "evaluation::twt::edit_project failed $errmsg : Didn't edit a Project"
@@ -722,7 +722,7 @@
     if { [string match  "*/classes/*/evaluation/admin/tasks/solution-add-edit*"  $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 "$short_file_name" } errmsg] } {
             aa_error  "evaluation::twt::view_exam_solution failed $errmsg : Didn't view an Exam Solution"
@@ -798,7 +798,7 @@
     if {[string match  "*/dotlrn/classes*/evaluation/admin/tasks/task-add-edit*" $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 "$exam_name" } errmsg] || [catch {tclwebtest::assert text "$exam_description" } errmsg] || [catch {tclwebtest::assert text "$short_file_name" } errmsg] } {
 
@@ -849,7 +849,7 @@
     if {[string match  "$class_material_url" $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 "$exam_name" } errmsg]} {
             aa_error  "evaluation::twt::edit_exam failed $errmsg : Didn't edit an Exam"