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 -r1.5 -r1.6
--- openacs-4/packages/acs-core-docs/www/files/tutorial/myfirstpackage-procs.tcl	10 Jan 2007 21:22:03 -0000	1.5
+++ openacs-4/packages/acs-core-docs/www/files/tutorial/myfirstpackage-procs.tcl	27 Oct 2014 16:39:29 -0000	1.6
@@ -14,7 +14,7 @@
             -test_code  {
                 set name [ad_generate_random_string]
                 set new_id [mfp::note::add -title $name]
-                aa_true "Note add succeeded" [exists_and_not_null new_id]
+                aa_true "Note add succeeded" ([info exists new_id] && $new_id ne "")
                 
                 mfp::note::get -item_id $new_id -array note_array
                 aa_true "Note contains correct title" [string equal $note_array(title) $name]
@@ -39,7 +39,7 @@
                 set name {-Bad [BAD] \077 { $Bad}} 
                 append name [ad_generate_random_string]
                 set new_id [mfp::note::add -title $name]
-                aa_true "Note add succeeded" [exists_and_not_null new_id]
+                aa_true "Note add succeeded" ([info exists new_id] && $new_id ne "")
                 
                 mfp::note::get -item_id $new_id -array note_array
                 aa_true "Note contains correct title" [string equal $note_array(title) $name]