Index: rmt.scm
==================================================================
--- rmt.scm
+++ rmt.scm
@@ -120,11 +120,11 @@
 	(thread-sleep! 0.1) ;; since we shouldn't get here, delay a little
 	(remote-hh-dat-set! runremote (common:get-homehost)))
     
     ;;(print "BB> readonly-mode is "readonly-mode" dbfile is "dbfile)
     (cond
-     ((> (- (current-seconds)(remote-connect-time runremote)) 180) ;; reconnect to server every 180 seconds
+     #;((> (- (current-seconds)(remote-connect-time runremote)) 180) ;; reconnect to server every 180 seconds
       (debug:print 0 *default-log-port* "Forcing reconnect to server(s) due to 180 second timeout.")
       (set! *runremote* #f)
       ;; BUG: close-connections should go here?
       (mutex-unlock! *rmt-mutex*)
       (rmt:send-receive cmd rid params attemptnum: 1 area-dat: area-dat))

ADDED   testlocking/justtest.scm
Index: testlocking/justtest.scm
==================================================================
--- /dev/null
+++ testlocking/justtest.scm
@@ -0,0 +1,9 @@
+(print "Starting at "(current-seconds))
+
+(dbfile:with-simple-file-lock "justtesting.lock" 
+			      (lambda ()
+				(print "got the lock at "(current-seconds)"!")))
+
+(print "Done at: " (current-seconds))
+(exit)
+

ADDED   testlocking/testlock.sh
Index: testlocking/testlock.sh
==================================================================
--- /dev/null
+++ testlocking/testlock.sh
@@ -0,0 +1,12 @@
+#!/bin/bash
+
+HRS=$(date +%H)
+MINS=$(($(date +%M) + 1))
+if [[ $MINS -lt 10 ]];then
+  MINS="0${MINS}"
+fi
+THETIME="$HRS:$MINS"
+echo "THETIME=$THETIME"
+for x in a b c d e f g h i j;do
+   echo "megatest -load justtest.scm > $x.log" | at $THETIME
+done