Megatest

    ;; DOT SET_HOMEHOST; // leaving off - doesn't really add to the clarity
    ;; DOT MUTEXLOCK -> SET_HOMEHOST [label="no homehost?"];
    ;; DOT SET_HOMEHOST -> MUTEXLOCK;
    ;; ensure we have a homehost record
    (if (not (pair? (remote-hh-dat runremote)))  ;; not on homehost
	(thread-sleep! 0.1) ;; since we shouldn't get here, delay a little
	(remote-hh-dat-set! runremote (common:get-homehost)))

    
    (if (> attemptnum 2)
	(debug:print 1 "INFO: attemptnum in rmt:send-receive is " attemptnum))
    
    (cond
     ((> attemptnum 1) (thread-sleep! 0.1))
     ((> attemptnum 5) (thread-sleep! 0.5))
     ((> attemptnum 10)
     ((> attemptnum 2) (thread-sleep! 0.05))
     ((> attemptnum 10) (thread-sleep! 0.5))
     ((> attemptnum 20) (thread-sleep! 1)))
      (debug:print 1 "INFO: attemptnum in rmt:send-receive is " attemptnum)
      (thread-sleep! (/ attemptnum 5))))
    
    ;;(print "BB> readonly-mode is "readonly-mode" dbfile is "dbfile)
    (cond
     ;;DOT EXIT;
     ;;DOT MUTEXLOCK -> EXIT [label="> 15 attempts"]; {rank=same "case 1" "EXIT" }
     ;; give up if more than 15 attempts
     ((> attemptnum 15)