diff --git a/Examples/test-suite/tcl/integers_runme.tcl b/Examples/test-suite/tcl/integers_runme.tcl
index c04dd1e9e..261c4c289 100644
--- a/Examples/test-suite/tcl/integers_runme.tcl
+++ b/Examples/test-suite/tcl/integers_runme.tcl
@@ -2,12 +2,14 @@ if [ catch { load ./integers[info sharedlibextension] integers} err_msg ] {
 	puts stderr "Could not load shared object:\n$err_msg"
 }
 
-set val 3902408827
+# 32-bit long max
+set val 2147483647
 if {[signed_long_identity $val] != $val} {
     puts stderr "Runtime test 1 failed"
     exit 1
 }
 
+set val 3902408827
 if {[unsigned_long_identity $val] != $val} {
     puts stderr "Runtime test 2 failed"
     exit 1