Index: tests/Makefile
==================================================================
--- tests/Makefile
+++ tests/Makefile
@@ -1,8 +1,8 @@
 # run some tests
 
-BINPATH=$(PWD)/../bin
+BINPATH=$(shell readlink -m $(PWD)/../bin)
 MEGATEST=$(BINPATH)/megatest
 PATH := $(BINPATH):$(PATH)
 RUNNAME := $(shell date +w%V.%u.%H.%M)
 IPADDR := "-"
 # Set SERVER to "-server -"
@@ -78,10 +78,17 @@
 	 $(MEGATEST) -runtests %  -target a/d :runname c;$(MEGATEST) -list-runs %|egrep ^Run:) > test7.log 2> test7.log 
 	logpro test7.logpro test7.html < test7.log
 	@echo 
 	@echo Run \"firefox test7.html\" to see the results.
 
+# This one failed with v1.55
+test8 : 
+	cd fullrun;$(MEGATEST) -runtests priority_10_waiton_1 -target ubuntu/nfs/none :runname $(RUNNAME)_waiton_single
+	cd fullrun;$(MEGATEST) -runtests lineitem_fail 1 -target ubuntu/nfs/none :runname $(RUNNAME)_singletest
+	cd fullrun;$(MEGATEST) -runtests runfirst/fall 1 -target ubuntu/nfs/none :runname $(RUNNAME)_singleitem
+	cd fullrun;$(MEGATEST) -runtests test_mt_vars/2 -target ubuntu/nfs/none :runname $(RUNNAME)_singleitem_waiton
+
 cleanprep : ../*.scm Makefile */*.config
 	mkdir -p fullrun/tmp/mt_runs fullrun/tmp/mt_links
 	cd ..;make;make install
 	rm -f */logging.db
 	touch cleanprep
@@ -106,9 +113,9 @@
 
 hardkill : kill
 	sleep 5;killall -v mtest main.sh dboard -9
 
 listservers :
-	cd fullrun;$(MEGATEST) -listservers
+	cd fullrun;$(MEGATEST) -list-servers
 
 runforever :
 	while(ls); do runname=`date +%F-%R:%S`;(cd fullrun;$(MEGATEST) -runall -target ubuntu/nfs/none :runname $$runname;/home/matt/data/megatest/megatest -runall -target ubuntu/nfs/none :runname $$runname;/home/matt/data/megatest/megatest -runall -target ubuntu/nfs/none :runname $$runname);done

Index: tests/tests.scm
==================================================================
--- tests/tests.scm
+++ tests/tests.scm
@@ -83,13 +83,13 @@
 (test "server-register, get-best-server" #t (let ((res #f))
 					      (open-run-close tasks:server-register tasks:open-db 1 "bob" 1234 100 'live 'http)
 					      (set! res (open-run-close tasks:get-best-server tasks:open-db))
 					      (number? (vector-ref res 3))))
 
-(test "de-register server" #f (let ((res #f))
+(test "de-register server" #t (let ((res #f))
 				(open-run-close tasks:server-deregister tasks:open-db "bob" port: 1234)
-				(open-run-close tasks:get-best-server tasks:open-db)))
+				(vector? (open-run-close tasks:get-best-server tasks:open-db))))
 
 (define server-pid #f)
 (test "launch server" #t (let ((pid (process-fork (lambda ()
 						    ;; (daemon:ize)
 						    (server:launch 'http)))))