Index: rmt.scm ================================================================== --- rmt.scm +++ rmt.scm @@ -69,11 +69,11 @@ (cond ((> attemptnum 2) (thread-sleep! 0.05)) ((> attemptnum 10) (thread-sleep! 0.5)) ((> attemptnum 20) (thread-sleep! 1))) - (if (and (> attemptnum 5) (= 0 (moduleo attemptnum 15))) + (if (and (> attemptnum 5) (= 0 (modulo attemptnum 15))) (begin (rmt:start-server rid) (thread-sleep! 3))) ;;DOT digraph megatest_state_status { ;;DOT ranksep=0;