diff --git a/after5.rb b/after5.rb
index 5af27e5..6abb407 100755
--- a/after5.rb
+++ b/after5.rb
@@ -4,7 +4,7 @@
 # Associative Scheduling Table - after5
 # (C)2003, 2004, 2006, 2008, 2012 by HIROSE Yuuji [yuuji<at>gentei.org]
 # $Id: after5.rb,v 1.19 2012/04/01 11:52:25 yuuji Exp yuuji $
-# Last modified Thu Nov 29 10:17:51 2012 on firestorm
+# Last modified Thu Nov 29 12:24:14 2012 on firestorm
 # See http://www.gentei.org/~yuuji/software/after5/
 # ���Υ�����ץȤ�EUC����¸���Ƥ���������
 $hgid = <<_HGID_.split[1..-2].join(" ")
@@ -1847,7 +1847,7 @@
     ## p day, last
     while column <= last
       @O.print @H.elementln("tr", nil){
-        sunday = first + (column-1)*3600
+        sunday = first + (column-1)*3600*24
 	(column..column+6).collect{|d|
 	  todayp = (day.year==todayy && day.month==todaym && d==todayd)
 	  wd=d-column