diff --git a/generic/tclExecute.c b/generic/tclExecute.c
index f667054dc911..2c5e697ae183 100644
--- a/generic/tclExecute.c
+++ b/generic/tclExecute.c
@@ -5811,7 +5811,7 @@ TEBCresume(
 		    if (((size_t) shift < CHAR_BIT*sizeof(long))
 			    && !((w1>0 ? w1 : ~w1) &
 				-(1UL<<(CHAR_BIT*sizeof(long) - 1 - shift)))) {
-			wResult = (unsigned long)w1 << shift;
+			wResult = (Tcl_WideUInt)w1 << shift;
 			goto wideResultOfArithmetic;
 		    }
 		}