From b237b6f20877470c49a9c2c82376257f6fa19fb6 Mon Sep 17 00:00:00 2001
From: "jan.nijtmans" <nijtmans@users.sourceforge.net>
Date: Mon, 19 Sep 2022 14:18:05 +0000
Subject: addendum to previous commit: restore -errorcode too .....

---
 generic/tclEvent.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/generic/tclEvent.c b/generic/tclEvent.c
index 7846b71..183ac82 100644
--- a/generic/tclEvent.c
+++ b/generic/tclEvent.c
@@ -1858,7 +1858,7 @@ Tcl_VwaitObjCmd(
 	    Tcl_SetObjResult(interp, Tcl_NewWideIntObj(diff));
 	}
     } else {
-	Tcl_RestoreInterpState(interp, saved);
+	result = Tcl_RestoreInterpState(interp, saved);
     }
     if (vwaitItems != localItems) {
 	ckfree(vwaitItems);
-- 
cgit v0.12