Index: openacs-4/packages/assessment/tcl/test/as-item-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/test/as-item-procs.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/assessment/tcl/test/as-item-procs.tcl	7 Aug 2017 23:48:03 -0000	1.4
+++ openacs-4/packages/assessment/tcl/test/as-item-procs.tcl	19 Jul 2018 12:24:40 -0000	1.5
@@ -23,7 +23,7 @@
                                -label $folder_name \
                                -description $folder_name]
             aa_true "Folder_id is not null '${folder_id}'" \
-                [expr {$folder_id ne ""}]
+                {$folder_id ne ""}
             content::folder::register_content_type \
                 -folder_id $folder_id \
                 -content_type as_items
@@ -42,10 +42,10 @@
             }
             set content [db_string q "select content from cr_revisions where revision_id=:as_item_rev_id"]
             aa_true "Long title successfully entered" \
-                [expr {[string range $long_text 0 999] eq $title}]
-            aa_true "Long question successfully entered" [expr {$content eq $long_text}]
+                {[string range $long_text 0 999] eq $title}
+            aa_true "Long question successfully entered" {$content eq $long_text}
             aa_true "Mime type is text/html" \
-                [expr {$mime_type eq "text/html"}]
+                {$mime_type eq "text/html"}
 
 
 	    aa_log "Test item::edit"
@@ -54,15 +54,15 @@
             aa_true "Item created" [db_0or1row q "select title,mime_type from cr_revisions where revision_id=:new_item_rev_id"]
             set content [db_string q "select content from cr_revisions where revision_id=:new_item_rev_id"]
             aa_true "Long title successfully entered" \
-                [expr {[string range $long_text 0 999] eq $title}]
-            aa_true "Long question successfully entered" [expr {$content eq $long_text}]
+                {[string range $long_text 0 999] eq $title}
+            aa_true "Long question successfully entered" {$content eq $long_text}
 	    aa_log "Test item::new_revision"
 	    set new_rev_rev_id [as::item::new_revision -as_item_id $new_item_rev_id]
             aa_true "Item created" [db_0or1row q "select title,mime_type from cr_revisions where revision_id=:new_rev_rev_id"]
             set content [db_string q "select content from cr_revisions where revision_id=:new_rev_rev_id"]
             aa_true "Long title successfully entered" \
-                [expr {[string range $long_text 0 999] eq $title}]
-            aa_true "Long question successfully entered" [expr {$content eq $long_text}]
+                {[string range $long_text 0 999] eq $title}
+            aa_true "Long question successfully entered" {$content eq $long_text}
 
 	    aa_log "Test item::copy"
 	    set copy_rev_id [as::item::copy \
@@ -71,8 +71,8 @@
             aa_true "Item created" [db_0or1row q "select title,mime_type from cr_revisions where revision_id=:copy_rev_id"]
             set content [db_string q "select content from cr_revisions where revision_id=:copy_rev_id"]
             aa_true "Long title successfully entered" \
-                [expr {[string range $long_text 0 999] eq $title}]
-            aa_true "Long question successfully entered" [expr {$content eq $long_text}]
+                {[string range $long_text 0 999] eq $title}
+            aa_true "Long question successfully entered" {$content eq $long_text}
 	    
 	}
 }