Index: db.scm ================================================================== --- db.scm +++ db.scm @@ -2166,12 +2166,13 @@ (let* ((tdb (db:open-test-db-by-test-id db test-id work-area: work-area)) (res '())) (if (sqlite3:database? tdb) (handle-exceptions exn - (debug:print 0 "ERROR: error on access to testdat for test with id " test-id) - '() + (begin + (debug:print 0 "ERROR: error on access to testdat for test with id " test-id) + '()) (begin (sqlite3:for-each-row (lambda (id test-id stepname state status event-time logfile) (set! res (cons (vector id test-id stepname state status event-time (if (string? logfile) logfile "")) res))) tdb Index: utils/installall.sh ================================================================== --- utils/installall.sh +++ utils/installall.sh @@ -126,12 +126,10 @@ # CSC_OPTIONS="-I$PREFIX/include -L$PREFIX/lib" $CHICKEN_INSTALL -prefix $DEPLOYTARG -deploy $PROX sqlite3 CSC_OPTIONS="-I$PREFIX/include -L$PREFIX/lib" $CHICKEN_INSTALL $PROX sqlite3 fi fi -exit - # $CHICKEN_INSTALL $PROX sqlite3 if [[ `uname -a | grep x86_64` == "" ]]; then export ARCHSIZE='' else