Index: openacs-4/packages/acs-core-docs/www/files/tutorial/myfirstpackage-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-core-docs/www/files/tutorial/myfirstpackage-procs.tcl,v
diff -u -N -r1.8 -r1.9
--- openacs-4/packages/acs-core-docs/www/files/tutorial/myfirstpackage-procs.tcl	18 Jun 2018 07:28:49 -0000	1.8
+++ openacs-4/packages/acs-core-docs/www/files/tutorial/myfirstpackage-procs.tcl	19 Jul 2018 12:18:47 -0000	1.9
@@ -22,7 +22,7 @@
                 mfp::note::delete -item_id $new_id
                 
                 set get_again [catch {mfp::note::get -item_id $new_id -array note_array}]
-                aa_false "After deleting a note, retrieving it fails" [expr {$get_again == 0}]
+                aa_false "After deleting a note, retrieving it fails" {$get_again == 0}
             }
     }
 
@@ -47,7 +47,7 @@
                 mfp::note::delete -item_id $new_id
                 
                 set get_again [catch {mfp::note::get -item_id $new_id -array note_array}]
-                aa_false "After deleting a note, retrieving it fails" [expr {$get_again == 0}]
+                aa_false "After deleting a note, retrieving it fails" {$get_again == 0}
             }
     }