diff --git a/test/agent/scenarios/peer-monitor/scenario.scm b/test/agent/scenarios/peer-monitor/scenario.scm index 29543adfc12989d91c3eed8482acd0ca7782cd28..6e4a985efacc3422d4c622e978aae82d07069a9a 100755 --- a/test/agent/scenarios/peer-monitor/scenario.scm +++ b/test/agent/scenarios/peer-monitor/scenario.scm @@ -67,10 +67,12 @@ (let ((account (fluid-ref agent:account-id)) (details (next-details!))) - (progress "SIGALRM - Chaning account details: ~a" details) + (progress "SIGALRM - Changing account details: ~a" details) (account:send-register account #f) (account:set-details account details) - (account:send-register account #t)))) + (account:send-register account #t)) + + (pause))) ;; Setup timer to trigger at next midnigh of UTC+0. This means that peers can ;; have different timezones and still synchronize at the same time.