Index: openacs-4/packages/acs-datetime/tcl/acs-calendar-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-datetime/tcl/acs-calendar-procs.tcl,v
diff -u -r1.4 -r1.4.2.1
--- openacs-4/packages/acs-datetime/tcl/acs-calendar-procs.tcl	11 Feb 2002 07:09:23 -0000	1.4
+++ openacs-4/packages/acs-datetime/tcl/acs-calendar-procs.tcl	9 Mar 2002 23:09:08 -0000	1.4.2.1
@@ -735,8 +735,17 @@
     <tr><td align=center bgcolor=lavender colspan=5>
     <table cellspacing=0 cellpadding=1 border=0 bgcolor=lavender>
     <td><td>
-    <font size=-1><a href=\"$today_url\"><font color=blue>
-    <b>Today</b></font></a> is [dt_ansi_to_pretty]</font><br>
+    <font size=-1>"
+
+    if { $view == "day" && [dt_sysdate] == $date } {
+        append output "<b>Today</b>"
+    } else {
+        append output "<a href=\"$today_url\"><font color=blue>
+    <b>Today</b></font></a> "
+    }
+    
+    append output "
+    is [dt_ansi_to_pretty]</font><br>
     <form method=get action=$base_url>
     Go to: <INPUT TYPE=text name=date size=10> <INPUT type=submit value=go>
     <INPUT TYPE=hidden name=view value=day>