Index: openacs-4/contrib/packages/simulation/www/siminst/simulation-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/simulation/www/siminst/Attic/simulation-edit.tcl,v
diff -u -r1.12 -r1.13
--- openacs-4/contrib/packages/simulation/www/siminst/simulation-edit.tcl	19 Jan 2004 17:10:32 -0000	1.12
+++ openacs-4/contrib/packages/simulation/www/siminst/simulation-edit.tcl	20 Jan 2004 14:11:21 -0000	1.13
@@ -98,8 +98,9 @@
     if { [string equal $enroll_type "open"] } {
         lappend dates_to_check enroll_start enroll_end
     }
+    set now_ansi [clock format [clock seconds] -format "%Y-%m-%d"]
     foreach date_var $dates_to_check {
-        if { [clock scan [set $date_var]] < [clock seconds] } {
+        if { [clock scan [set $date_var]] < [clock scan $now_ansi] } {
             template::form::set_error simulation $date_var "The date needs to be in the future"
             set error_p 1                            
         }