hostside/measure-speeds: when positioning for slow, when we have just done slow speed...

diff --git a/hostside/measure-speeds b/hostside/measure-speeds
index 958f9e284cfb707b70610296200d9aad41ceb32b..c71dd8481da8383837522159a9a3f1db6a954ed2 100755 (executable)
--- a/hostside/measure-speeds
+++ b/hostside/measure-speeds
@@ -245,7 +245,7 @@ proc goto-slow-start-position {speed} {
     if {$last_fast_speed >= 0} {
        run-until -100 [list $segs(X5) $segs(X6)]
        set last_fast_speed -1
-    } else {
+    } elseif {$last_fast_speed < 0} {
        run-until 100 [list $segs(X5) $segs(X6) $segs(X8)]
     }
     run-until -40 [list $segs(X7) $segs(X5)]
@@ -262,12 +262,13 @@ proc begin-slow-test {speed} {
 }
 
 proc slow-speed-test {speed} {
-    global segs
+    global segs last_fast_speed
     begin-slow-test $speed
     timing-start
     run-until $speed $segs(X6)
     record-mm-per-s S $speed 231 [timing-finish]
     instruct-stop-for 100
+    set last_fast_speed 0
 }
 
 proc slow-stop-test {speed} {