Index: openacs-4/packages/acs-content-repository/tcl/test/content-search-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/tcl/test/content-search-procs.tcl,v
diff -u -r1.2 -r1.2.2.1
--- openacs-4/packages/acs-content-repository/tcl/test/content-search-procs.tcl	6 Sep 2006 14:37:23 -0000	1.2
+++ openacs-4/packages/acs-content-repository/tcl/test/content-search-procs.tcl	15 Apr 2007 20:22:05 -0000	1.2.2.1
@@ -110,9 +110,8 @@
 		-events [list DELETE]
 	    cr_item_search::remove_from_queue \
 		-revision_id $latest_revision
-
-	    db_dml set_publish_date \
-		"update cr_revisions set publish_date=current_timestamp + '1 day' :: interval where revision_id=:latest_revision"
+            set next_date [clock format [clock scan "tomorrow"] -format "%Y-%m-%d"]
+	    db_dml set_publish_date "update cr_revisions set publish_date=:next_date where revision_id=:latest_revision"
 	    aa_log "Publish Date in future, live revision not set"
 	    cr_item_search::assert_not_in_queue \
 		-revision_id $latest_revision \