Index: launch.scm ================================================================== --- launch.scm +++ launch.scm @@ -665,11 +665,11 @@ ;; If there is already a symlink delete it and recreate it. (handle-exceptions exn (begin - (debug:print 0 "ERROR: Failed to re-create link " linktarget ((condition-property-accessor 'exn 'message) exn) ", exiting") + (debug:print 0 "ERROR: Failed to re-create link " lnktarget ((condition-property-accessor 'exn 'message) exn) ", exiting") (exit)) (if (symbolic-link? lnktarget) (delete-file lnktarget)) (if (not (file-exists? lnktarget)) (create-symbolic-link test-path lnktarget))))) (if (not (directory? test-path)) Index: tasks.scm ================================================================== --- tasks.scm +++ tasks.scm @@ -67,10 +67,11 @@ *task-db* (handle-exceptions exn (if (> numretries 0) (begin + (print-call-chain) (debug:print 0 " message: " ((condition-property-accessor 'exn 'message) exn)) (print "exn=" (condition->list exn)) (thread-sleep! 1) (tasks:open-db numretries (- numretries 1))) (begin Index: tests/fullrun/megatest.config ================================================================== --- tests/fullrun/megatest.config +++ tests/fullrun/megatest.config @@ -135,11 +135,11 @@ # Three minutes is 0.05 hours # timeout 0.025 timeout 0.01 # Server is required - slower but more resistant to Sqlite issues. -required yes +# required yes # daemonize yes # hostname #{scheme (get-host-name)} ## disks are: