Index: openacs-4/packages/dotlrn-fs/tcl/test/dotlrn-fs-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-fs/tcl/test/dotlrn-fs-procs.tcl,v
diff -u -N -r1.3 -r1.4
--- openacs-4/packages/dotlrn-fs/tcl/test/dotlrn-fs-procs.tcl	7 Aug 2017 23:48:10 -0000	1.3
+++ openacs-4/packages/dotlrn-fs/tcl/test/dotlrn-fs-procs.tcl	19 Jul 2018 12:21:05 -0000	1.4
@@ -68,17 +68,17 @@
                        root_err_msg
                 aa_log $root_err_msg
                          
-                aa_true "User root folder OK" [expr {
+                aa_true "User root folder OK" {
                              $check_user_root_folder_id \
-                                 == $user_root_folder_id}]
+                                 == $user_root_folder_id}
                 catch {set check_user_shared_folder_id \
                            [dotlrn_fs::get_user_shared_folder \
                            -user_id $creation_info(user_id)]} shared_err_msg
                     
                 aa_log $shared_err_msg
-                aa_true "User shared folder OK" [expr {
+                aa_true "User shared folder OK" {
                              $check_user_shared_folder_id \
-                                 == $user_shared_folder_id}]                
+                                 == $user_shared_folder_id}                
         } 
 }