Index: rmt.scm
==================================================================
--- rmt.scm
+++ rmt.scm
@@ -99,17 +99,18 @@
     ;; 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)
-      (debug:print 1 "INFO: attemptnum in rmt:send-receive is " attemptnum)
-      (thread-sleep! (/ attemptnum 5))))
+     ((> attemptnum 2) (thread-sleep! 0.05))
+     ((> attemptnum 10) (thread-sleep! 0.5))
+     ((> attemptnum 20) (thread-sleep! 1)))
     
     ;;(print "BB> readonly-mode is "readonly-mode" dbfile is "dbfile)
     (cond
      ;;DOT EXIT;
      ;;DOT MUTEXLOCK -> EXIT [label="> 15 attempts"]; {rank=same "case 1" "EXIT" }