X-Git-Url: https://diplodocus.org/git/nmh/blobdiff_plain/34ec62af8fc74c3c9d143328f485c82ef7aad327..79fcc0e0c68cd0cb8b9edc7c9db5eeaa2358d756:/zotnet/tws/dtime.c

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;
 }