Index: Makefile
==================================================================
--- Makefile
+++ Makefile
@@ -173,11 +173,11 @@
 $(DEPLOYHELPERS) : utils/mt_*
 	$(INSTALL) $< $@
 	chmod a+X $@
 
 deploytarg/apropos.so : Makefile
-	chicken-install -p deploytarg -deploy $(EGGS)
+	chicken-install -p deploytarg -deploy -keep-installed $(EGGS)
 
 #	for i in apropos base64 canvas-draw csv-xml directory-utils dot-locking extras fmt format hostinfo http-client intarweb json md5 message-digest posix posix-extras readline regex regex-case s11n spiffy spiffy-request-vars sqlite3 srfi-1 srfi-18 srfi-69 tcp test uri-common check-errors synch matchable sql-null tcp-server rpc blob-utils string-utils variable-item defstruct uri-generic sendfile opensll openssl lookup-table list-utils stack; do \
 #	chicken-install -prefix deploytarg -deploy $$i;done
 
 # deploytarg/libsqlite3.so : 
@@ -233,5 +233,8 @@
 	if egrep 'version.*3.0' $(shell dirname $(shell dirname $(shell which csi)))/lib/chicken/7/readline.setup-info;then \
            echo "(use-legacy-bindings)" > readline-fix.scm; \
 	else \
 	   echo "" > readline-fix.scm;\
 	fi
+
+portlogger-example : portlogger-example.scm api.o archive.o client.o common.o configf.o daemon.o dashboard-tests.o db.o dcommon.o ezsteps.o filedb.o genexample.o gutils.o http-transport.o items.o keys.o launch.o lock-queue.o margs.o megatest-version.o mt.o nmsg-transport.o ods.o portlogger.o process.o rmt.o rpc-transport.o runconfig.o runs.o sdb.o server.o synchash.o tasks.o tdb.o tests.o tree.o
+	csc portlogger-example.scm api.o archive.o client.o common.o configf.o daemon.o dashboard-tests.o db.o dcommon.o ezsteps.o filedb.o genexample.o gutils.o http-transport.o items.o keys.o launch.o lock-queue.o margs.o megatest-version.o mt.o nmsg-transport.o ods.o portlogger.o process.o rmt.o rpc-transport.o runconfig.o runs.o sdb.o server.o synchash.o tasks.o tdb.o tests.o tree.o

Index: dashboard.scm
==================================================================
--- dashboard.scm
+++ dashboard.scm
@@ -304,11 +304,11 @@
 		  (set! referenced-run-ids (cons run-id referenced-run-ids))
 		  (if (> (length tests) maxtests)
 		      (set! maxtests (length tests)))
 		  (if (or (not *hide-empty-runs*) ;; this reduces the data burden when set
 			  (not (null? tests)))
-		      (let ((dstruct (vector run tests key-vals last-update)))
+		      (let ((dstruct (vector run tests key-vals (- (current-seconds) 10))))
 			;;
 			;; compare the tests with the tests in *allruns-by-id* same run-id 
 			;; if different then increment value in *runchangerate*
 			;;
 			(hash-table-set! *allruns-by-id* run-id dstruct)

Index: db.scm
==================================================================
--- db.scm
+++ db.scm
@@ -815,11 +815,11 @@
 		     (sqlite3:execute
 		      maindb
 		      "CREATE TRIGGER IF NOT EXISTS update_runs_trigger AFTER UPDATE ON runs
                              FOR EACH ROW
                                BEGIN 
-                                 UPDATE runs SET last_update=(strftime('%','now'))
+                                 UPDATE runs SET last_update=(strftime('%s','now'))
                                    WHERE id=old.id;
                                END;")
 		     )
 		   (begin
 		     ;; NB// must sync first to ensure deleted tests get marked as such in megatest.db
@@ -939,11 +939,11 @@
                          last_update INTEGER DEFAULT (strftime('%s','now')),
 			 CONSTRAINT runsconstraint UNIQUE (runname" (if havekeys "," "") keystr "));"))
        (sqlite3:execute db "CREATE TRIGGER update_runs_trigger AFTER UPDATE ON runs
                              FOR EACH ROW
                                BEGIN 
-                                 UPDATE runs SET last_update=(strftime('%','now'))
+                                 UPDATE runs SET last_update=(strftime('%s','now'))
                                    WHERE id=old.id;
                                END;")
        (sqlite3:execute db "CREATE TABLE IF NOT EXISTS test_meta (
                                      id          INTEGER PRIMARY KEY,
                                      testname    TEXT DEFAULT '',
@@ -1040,11 +1040,11 @@
                         CONSTRAINT testsconstraint UNIQUE (run_id, testname, item_path));")
      (sqlite3:execute db "CREATE INDEX IF NOT EXISTS tests_index ON tests (run_id, testname, item_path);")
      (sqlite3:execute db "CREATE TRIGGER update_tests_trigger AFTER UPDATE ON tests
                              FOR EACH ROW
                                BEGIN 
-                                 UPDATE tests SET last_update=(strftime('%','now'))
+                                 UPDATE tests SET last_update=(strftime('%s','now'))
                                    WHERE id=old.id;
                                END;")
      (sqlite3:execute db "CREATE TABLE IF NOT EXISTS test_steps 
                               (id INTEGER PRIMARY KEY,
                                test_id INTEGER, 

Index: megatest-version.scm
==================================================================
--- megatest-version.scm
+++ megatest-version.scm
@@ -1,7 +1,7 @@
 ;; Always use two or four digit decimal
 ;; 1.01, 1.02...1.10,1.11,1,1101 ... 1.99,2.00..
 
 (declare (unit megatest-version))
 
-(define megatest-version 1.6029)
+(define megatest-version 1.6031)
 

Index: megatest.scm
==================================================================
--- megatest.scm
+++ megatest.scm
@@ -1036,11 +1036,12 @@
 				       (rmt:get-tests-for-run run-id testpatt states statuses #f #f #f 'testname 'asc ;; (db:get-tests-for-run dbstruct run-id testpatt '() '() #f #f #f 'testname 'asc 
 							     ;; use qryvals if test-spec provided
 							     (if tests-spec
 								 (string-intersperse adj-tests-spec ",")
 								 ;; db:test-record-fields
-								 #f))
+								 #f)
+							     #f)
 				       '())))
 		     (case dmode
 		       ((json ods)
 			(if runs-spec
 			    (for-each 

ADDED   portlogger-example.scm
Index: portlogger-example.scm
==================================================================
--- /dev/null
+++ portlogger-example.scm
@@ -0,0 +1,4 @@
+
+(declare (uses portlogger))
+
+(print (apply portlogger:main (cdr (argv))))