X-Git-Url: https://diplodocus.org/git/nmh/blobdiff_plain/f2cc76d9a760ebf86b61d609696999330449aecb..ac79e8d6a1a8a3cb3fb2438b03d3d0ba5ea2570d:/zotnet/tws/dtime.c?ds=inline

diff --git a/zotnet/tws/dtime.c b/zotnet/tws/dtime.c
index bbfccf0f..adf153b6 100644
--- a/zotnet/tws/dtime.c
+++ b/zotnet/tws/dtime.c
@@ -460,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;
 }