Index: openacs-4/packages/assessment/tcl/test/as-assessment-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/test/as-assessment-procs.tcl,v
diff -u -r1.3 -r1.3.6.1
--- openacs-4/packages/assessment/tcl/test/as-assessment-procs.tcl	15 May 2007 20:14:17 -0000	1.3
+++ openacs-4/packages/assessment/tcl/test/as-assessment-procs.tcl	18 Aug 2014 20:25:02 -0000	1.3.6.1
@@ -75,11 +75,11 @@
         # get data
         array set assessment_data {}
         as::assessment::data -assessment_id $assessment_id
-        aa_true "assessment exists" [expr $assessment_data(assessment_id) > 0]
+        aa_true "assessment exists" [expr {$assessment_data(assessment_id) > 0}]
 
         # start a session
         set session_id [as::session::new -assessment_id $assessment_rev_id -subject_id $user_id -package_id $package_id]
-        aa_true "session exists" [expr $session_id > 0]
+        aa_true "session exists" [expr {$session_id > 0}]
 
         set section_list [as::assessment::sections -assessment_id $assessment_rev_id \
                               -session_id $session_id \