Index: openacs-4/packages/acs-messaging/tcl/test/acs-messaging-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-messaging/tcl/test/acs-messaging-procs.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/acs-messaging/tcl/test/acs-messaging-procs.tcl	17 Nov 2003 06:31:10 -0000	1.3
+++ openacs-4/packages/acs-messaging/tcl/test/acs-messaging-procs.tcl	17 Nov 2003 06:37:36 -0000	1.4
@@ -17,9 +17,7 @@
             set name [ad_generate_random_string]
 
             set formatted_name [acs_messaging_format_as_html text/html $name]
-
             aa_true "Name is formatted" ![string match "<pre>$name<pre>" $formatted_name]
-
         }
 }
 
@@ -30,9 +28,8 @@
     aa_run_with_teardown \
         -rollback \
         -test_code {
-            # initialize random values
-            set message_p [acs_message_p "0"]
 
+            set message_p [acs_message_p "0"]
             aa_true "Integer is not a message_id" !$message_p
 
         }