diff --git a/tests/unit/scan.tcl b/tests/unit/scan.tcl
index 8ab14d3b1..51944d973 100644
--- a/tests/unit/scan.tcl
+++ b/tests/unit/scan.tcl
@@ -351,6 +351,7 @@ proc test_scan {type} {
 
         # We start scanning here, so keys from 0 to 99 should all be
         # reported at the end of the iteration.
+        set cur 0
         set keys {}
         while 1 {
             set res [r scan $cur]