Ensure that the literal 1 is wide enough for a shift (#23)
Ensure that the literal 1 is wide enough for a shift (#23)

Fixes runtime error found by ubsan.
mflatt/ChezScheme,mflatt/ChezScheme,mflatt/ChezScheme