mh_profile-prev

[mmh] / zotnet / tws / dtime.c

diff --git a/zotnet/tws/dtime.c b/zotnet/tws/dtime.c
index b4d2eec..adf153b 100644 (file)
--- a/zotnet/tws/dtime.c
+++ b/zotnet/tws/dtime.c
@@ -5,6 +5,7 @@
  * $Id$
  */
 
+#include "h/mh.h"   /* for snprintf() */
 #include <h/nmh.h>
 #include <tws.h>
 
@@ -459,6 +460,8 @@ set_dotw (struct tws *tw)
     tw->tw_wday =
        ((26 * month - 2) / 10 + day + year + year / 4
            - 3 * century / 4 + 1) % 7;
+    if (tw->tw_wday < 0)
+       tw->tw_wday += 7;
 
     tw->tw_flags &= ~TW_SDAY, tw->tw_flags |= TW_SIMP;
 }