Index: http-transport.scm
==================================================================
--- http-transport.scm
+++ http-transport.scm
@@ -68,11 +68,12 @@
 	 (ipaddrstr       (let ((ipstr (if (string=? "-" hostn)
 					   ;; (string-intersperse (map number->string (u8vector->list (hostname->ip hostname))) ".")
 					   (server:get-best-guess-address hostname)
 					   #f)))
 			    (if ipstr ipstr hostn))) ;; hostname))) 
-	 (start-port      (open-run-close tasks:server-get-next-port tasks:open-db))
+	 (start-port      (or (portlogger:open-run-close portlogger:get-prev-used-port)
+			      (open-run-close tasks:server-get-next-port tasks:open-db)))
 	 (link-tree-path  (configf:lookup *configdat* "setup" "linktree")))
     ;; (set! db *inmemdb*)
     (root-path     (if link-tree-path 
 		       link-tree-path
 		       (current-directory))) ;; WARNING: SECURITY HOLE. FIX ASAP!
@@ -428,11 +429,11 @@
 	    (set! *time-to-exit* #t)
 	    (if *inmemdb* (db:sync-touched *inmemdb* *run-id* force-sync: #t))
 	    ;;
 	    ;; start_shutdown
 	    ;;
-	    ( tasks:server-set-state! tdb server-id "shutting-down")
+	    (tasks:server-set-state! tdb server-id "shutting-down")
 	    (portlogger:open-run-close portlogger:set-port port "released")
 	    (thread-sleep! 5)
 	    (debug:print-info 0 "Max cached queries was    " *max-cache-size*)
 	    (debug:print-info 0 "Number of cached writes   " *number-of-writes*)
 	    (debug:print-info 0 "Average cached write time "

Index: portlogger.scm
==================================================================
--- portlogger.scm
+++ portlogger.scm
@@ -73,10 +73,18 @@
     (sqlite3:finalize! qry1)
     (sqlite3:finalize! qry2)
     (sqlite3:finalize! qry3)
     res))
 
+(define (portlogger:get-prev-used-port db)
+  (sqlite3:fold-row
+   (lambda (var curr)
+     (or curr var curr))
+   #f
+   db
+   "SELECT (port) FROM ports WHERE state='released' LIMIT 1;"))
+
 ;; set port to "released", "failed" etc.
 ;; 
 (define (portlogger:set-port db portnum value)
   (sqlite3:execute db "UPDATE ports SET state=?,update_time=strftime('%s','now') WHERE port=?;" value portnum))
 

Index: tests/Makefile
==================================================================
--- tests/Makefile
+++ tests/Makefile
@@ -9,10 +9,11 @@
 IPADDR   := "-"
 RUNID    := 1
 SERVER    = 
 DEBUG     = 1
 LOGGING   = 
+ROWS      = 20
 
 OS  = $(shell grep ID /etc/*-release|cut -d= -f2)
 FS  = $(shell df -T .|tail -1|awk '{print $$2}')
 VER = $(shell fsl info|grep checkout|awk '{print $$2}'|cut -c 1-5)
 
@@ -163,11 +164,11 @@
 fullprep : cleanprep
 	cd fullrun;$(MEGATEST) -remove-runs :runname $(RUNNAME)% -target %/%/% -testpatt %/%
 	cd fullrun;$(BINPATH)/dashboard -rows 15 &
 
 dashboard : cleanprep
-	cd fullrun && $(BINPATH)/dashboard -rows 20 &
+	cd fullrun && $(BINPATH)/dashboard -rows $(ROWS) &
 
 remove :
 	cd fullrun;$(MEGATEST) -remove-runs :runname $(RUN)  -testpatt % -itempatt % :sysname % :fsname % :datapath %
 
 clean  :