Index: GT/Date.pm
===================================================================
RCS file: /usr/local/gossamer/library/GT/Date.pm,v
retrieving revision 1.62
retrieving revision 1.64
diff -r1.62 -r1.64
62c62
< $VERSION    = sprintf "%d.%03d", q$Revision: 1.62 $ =~ /(\d+)\.(\d+)/;
---
> $VERSION    = sprintf "%d.%03d", q$Revision: 1.64 $ =~ /(\d+)\.(\d+)/;
381c381
<     my ($sec, $min, $hour, $pm, $day, $mon, $year, $dwk, $before, $type, $adjust, $leading);
---
>     my ($sec, $min, $hour, $pm, $day, $mon, $year, $dwk, $before, $type, $adjust, $leading, $h24);
508a509
>                     $h24  = 1;
515a517
>                     $h24  = 1;
583c585
<     elsif (!$pm and $hour == 12) {
---
>     elsif (!$pm and !$h24 and $hour == 12) {