Index: common.scm
==================================================================
--- common.scm
+++ common.scm
@@ -43,11 +43,11 @@
 
 (include "common_records.scm")
 
 (define (remove-files filespec)
   (let ((files (glob filespec)))
-    (for-each delete-file files)))
+    (for-each delete-file* files)))
 
 (define (stop-the-train)
   (thread-start! (make-thread (lambda ()
 				(let loop ()
 				  (if (and *toppath*

Index: dbfile.scm
==================================================================
--- dbfile.scm
+++ dbfile.scm
@@ -494,11 +494,11 @@
 				     (sqlite3:execute db (conc "PRAGMA journal_mode = "journal-mode";")))
 				 (if (and init-proc (or force-init
 							(not db-exists)))
 				     (init-proc db))
 				 db))
-			     expire-time: 5)
+			     expire-time: 30)
                             (begin
 			      (if (file-exists? fname )
                                   (let ((db (sqlite3:open-database fname)))
 				    ;; pragmas synchronous not needed because this db is used read-only
 				    ;; (sqlite3:execute db (conc "PRAGMA synchronous = "mode";")
@@ -1572,11 +1572,11 @@
                 #f 
                 (with-input-from-file fname
 	  	  (lambda ()
 		    (equal? key-string (read-line)))))
               (begin
-                 (dbfile:print-err "dbfile:simple-file-lock created " fname " but it was gone 3 seconds later")
+                (dbfile:print-err "dbfile:simple-file-lock created " fname " but it was gone 0.25 seconds later")
 	         #f
               )
           )
        )
     )

Index: portlogger.scm
==================================================================
--- portlogger.scm
+++ portlogger.scm
@@ -63,11 +63,12 @@
 (import debugprint dbmod)
 
 ;; lsof -i
 
 (define (portlogger:open-db fname)
-  (let* ((avail    (tasks:wait-on-journal fname 5 remove: #t)) ;; wait up to about 10 seconds for the journal to go away
+  (let* (;; (avail    (tasks:wait-on-journal fname 5 remove: #t)) ;; wait up to about 10 seconds for the journal to go away
+         (avail #t)
 	 (exists   (file-exists? fname))
 	 (db       (if avail 
 		       (sqlite3:open-database fname)
 		       (begin
 			 (system (conc "rm -f " fname))
@@ -92,12 +93,12 @@
             fail_count INTEGER DEFAULT 0,
             update_time TIMESTAMP DEFAULT (strftime('%s','now')) );")
     db))
 
 (define (portlogger:open-run-close proc . params)
-  (let* ((fname  (conc "/tmp/." (current-user-name) "-portlogger.db"))
-	 (avail  (tasks:wait-on-journal fname 10))) ;; wait up to about 10 seconds for the journal to go away
+  (let* ((fname  (conc "/tmp/." (current-user-name) "-portlogger.db")))
+	 ;; (avail  (tasks:wait-on-journal fname 10))) ;; wait up to about 10 seconds for the journal to go away
     (handle-exceptions
      exn
      (begin
        ;; (release-dot-lock fname)
        (debug:print-error 0 *default-log-port* "portlogger:open-run-close failed. " proc " " params)

Index: tcp-transportmod.scm
==================================================================
--- tcp-transportmod.scm
+++ tcp-transportmod.scm
@@ -913,18 +913,20 @@
     (debug:print 2 *default-log-port* "setup-listener-portlogger got port " port)
     (handle-exceptions
 	exn
       (if (< port 65535)
 	  (begin
+            (debug:print 0 *default-log-port* "setup-listener-portlogger: exception finding port. Retrying")
 	    (portlogger:open-run-close portlogger:set-failed port)
 	    (thread-sleep! 0.25)
 	    (setup-listener-portlogger uconn))
           (begin
-            (debug:print 0 *default-log-port* "setup-listener-portlogger: could not get a port")
+            (assert #t "setup-listener-portlogger: could not get a port")
 	    #f
           )
       )
+      (debug:print 2 *default-log-port* "setup-listener-portlogger: got port " port)
       (connect-listener uconn port))))
 
 (define (connect-listener uconn port)
   ;; (tcp-listener-socket LISTENER)(socket-name so)
   ;; sockaddr-address, sockaddr-port, sockaddr->string