Index: openacs-4/packages/acs-tcl/tcl/test/acs-tcl-test-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/test/acs-tcl-test-procs.tcl,v
diff -u -r1.37 -r1.38
--- openacs-4/packages/acs-tcl/tcl/test/acs-tcl-test-procs.tcl	10 Jan 2007 21:22:12 -0000	1.37
+++ openacs-4/packages/acs-tcl/tcl/test/acs-tcl-test-procs.tcl	5 Feb 2007 07:05:45 -0000	1.38
@@ -1090,3 +1090,4 @@
     set package_id [db_string get_package_id "select package_id from acs_objects where object_id = :object_id"]
     aa_true "package_id returned is correct" [string equal $package_id [acs_object::package_id -object_id $object_id]]
 }
+