Index: launch.scm ================================================================== --- launch.scm +++ launch.scm @@ -200,11 +200,14 @@ (if (eq? pid-val 0) (begin (thread-sleep! 2) (processloop (+ i 1)))) )) - (rdb:teststep-set-status! db run-id test-name stepname "end" (vector-ref exit-info 2) itemdat #f (if logpro-used (conc stepname ".html") "")) + (let ((exinfo (vector-ref exit-info 2)) + (logfna (if logpro-used (conc stepname ".html") ""))) + ;; testing if procedures called in a remote call cause problems (ans: no or so I suspect) + (rdb:teststep-set-status! db run-id test-name stepname "end" exinfo itemdat #f logfna)) (if logpro-used (test-set-log! db run-id test-name itemdat (conc stepname ".html"))) ;; set the test final status (let* ((this-step-status (cond ((and (eq? (vector-ref exit-info 2) 2) logpro-used) 'warn) Index: server.scm ================================================================== --- server.scm +++ server.scm @@ -100,11 +100,11 @@ 'rdb:test-set-log! (lambda (run-id test-name item-path logf) (db:test-set-log! db run-id test-name item-path logf))) (rpc:publish-procedure! - 'rpc:get-test-data-by-id + 'rdb:get-test-data-by-id (lambda (test-id) (db:get-test-data-by-id db test-id))) (rpc:publish-procedure! 'serve:get-toppath