Index: db.scm
==================================================================
--- db.scm
+++ db.scm
@@ -2693,11 +2693,11 @@
     thekey))
 
 ;; Get run-ids for runs with same target but different runnames and NOT run-id
 ;;
 (define (db:get-prev-run-ids dbstruct run-id)
-  (let* ((keyvals (rmt:get-key-val-pairs run-id))
+  (let* ((keyvals (db:get-key-val-pairs dbstruct run-id))
 	 (kvalues (map cadr keyvals))
 	 (keys    (rmt:get-keys))
 	 (qrystr  (string-intersperse (map (lambda (x)(conc x "=?")) keys) " AND ")))
     (let ((prev-run-ids '()))
       (if (null? keyvals)

Index: tests/Makefile
==================================================================
--- tests/Makefile
+++ tests/Makefile
@@ -16,11 +16,13 @@
 #     along with Megatest.  If not, see <http://www.gnu.org/licenses/>.
 #
 # run some tests
 
 BINPATH   = $(shell readlink -m $(PWD)/../bin)
+LSBR      = $(shell lsb_release -sr)
 MEGATEST  = $(BINPATH)/megatest
+MTEST     = $(BINPATH)/.$(LSBR)/mtest
 DASHBOARD = $(BINPATH)/dashboard
 PATH     := $(BINPATH):$(PATH)
 RUNNAME  := $(shell date +w%V.%u.%H.%M)
 IPADDR   := "-"
 RUNID    := 1
@@ -47,11 +49,11 @@
 	cd release;dashboard -rows 25 &
 
 ## basicserver.log : unittests/basicserver.scm
 ## 	script -c "./rununittest.sh basicserver $(DEBUG)" basicserver.log
 
-%.log : build unittests/%.scm
+%.log : build unittests/%.scm $(MTEST)
 	script -c "./rununittest.sh $* $(DEBUG)" $*.log
 	if logpro unit.logpro $*.html < $*.log > /dev/null;then echo ALLPASS;else echo ALLFAIL;mv $*.log $*.log.FAIL;fi
 
 server :
 	cd fullrun;$(MEGATEST) -server - -debug $(DEBUG) -run-id $(RUNID)

Index: tests/unittests/all-rmt.scm
==================================================================
--- tests/unittests/all-rmt.scm
+++ tests/unittests/all-rmt.scm
@@ -70,11 +70,11 @@
 (test #f "" (rmt:get-target 1))
 (test #f #t (rmt:register-test 1 "foo" ""))
 (test #f 1  (rmt:get-test-id 1 "foo" ""))
 (test #f "foo" (vector-ref (rmt:get-test-info-by-id 1 1) 2))
 (test #f "/tmp/badname" (rmt:test-get-rundir-from-test-id 1 1))
-(test #f '(1) (db:set-tests-state-status *db* 1 '("foo")  "COMPLETED" "PASS" "NOT_STARTED" "PASS"))
+;; (test #f '(1) (db:set-tests-state-status *db* 1 '("foo")  "COMPLETED" "PASS" "NOT_STARTED" "PASS")) ;; trust that this was tested in all-api
 (test #f '(1) (rmt:set-tests-state-status 1 '("foo") "COMPLETED" "PASS" "NOT_STARTED" "PASS"))
 (test #f #t (mt:test-set-state-status-by-id 1 1 "COMPLETED" "PASS" "Just testing!"))
 (test #f #t (list? (rmt:get-tests-for-run 1 "%" '() '() #f #f #f #f #f #f 0 #f)))
 (test #f #t (list? (rmt:get-tests-for-runs-mindata '(1) "%" '() '() #f)))
 (test #f #f (begin (rmt:delete-test-records 1 2) #f))