X-Git-Url: https://diplodocus.org/git/nmh/blobdiff_plain/ebe7903c571e88539acf6bfb636f7d212f279022..320aaed58b655cad87c9591a14fa1bf7091d72d1:/zotnet/tws/dtime.c

diff --git a/zotnet/tws/dtime.c b/zotnet/tws/dtime.c
index b4d2eec3..adf153b6 100644
--- 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;
 }