diff --git a/src/tests/bug.327.t b/src/tests/bug.327.t
index 6552aca68..a95710bbe 100755
--- a/src/tests/bug.327.t
+++ b/src/tests/bug.327.t
@@ -47,7 +47,7 @@ qx{../task rc:bug.rc 2 due:};
 # Result: Somehow the due date is incremented and wraps around to 12/31/1969,
 # then keeps going back to today.
 my $output = qx{../task rc:bug.rc li};
-like ($output, qr/^1 task$/ms, 'Should only be one task');
+unlike ($output, qr/1969/ms, 'Should not display 12/31/1969');
 
 # Cleanup.
 unlink 'pending.data';
diff --git a/src/tests/cal.t b/src/tests/cal.t
index 282c6051c..cfc037ca7 100755
--- a/src/tests/cal.t
+++ b/src/tests/cal.t
@@ -42,7 +42,7 @@ if (open my $fh, '>', 'cal.rc')
   close $fh;
   ok (-r 'cal.rc', 'Created cal.rc');
 }
-my @months = qw(Jan Fev Mar Apr May Jun Jul Aug Sep Oct Nov Dec);
+my @months = qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec);
 my ($day, $nmon, $nyear) = (localtime)[3,4,5];
 my $nextmonth   = $months[($nmon+1) % 12];
 my $month       = $months[($nmon) % 12];
@@ -68,7 +68,15 @@ $output = qx{../task rc:cal.rc rc.weekstart:Monday cal};
 like   ($output, qr/Fr Sa Su/,     'Week starts on Monday'); 
 $output = qx{../task rc:cal.rc cal y};
 like   ($output, qr/$month\w+?\s+?$year/,         'Current month and year are displayed');
+if ( $month eq "Jan")
+{
+  $nextyear = $nextyear - 1;
+}
 like   ($output, qr/$prevmonth\w+?\s+?$nextyear/, 'Month and year one year ahead are displayed');
+if ( $month eq "Jan")
+{
+  $nextyear = $nextyear + 1;
+}
 unlike ($output, qr/$month\w+?\s+?$nextyear/,     'Current month and year ahead are not displayed');
 
 # task cal due   and   task cal due y