Index: db.scm
==================================================================
--- db.scm
+++ db.scm
@@ -1251,28 +1251,28 @@
                                 id INTEGER PRIMARY KEY,
                                 archive_area_name TEXT,
                                 disk_path TEXT,
                                 last_df INTEGER DEFAULT -1,
                                 last_df_time TIMESTAMP DEFAULT (strftime('%s','now')),
-                                creation_time TIMESTAMP DEFAULT (strftime('%','now')));")
+                                creation_time TIMESTAMP DEFAULT (strftime('%s','now')));")
 	;; individual bup (or tar) data chunks
 	(sqlite3:execute db "CREATE TABLE IF NOT EXISTS archive_blocks (
                                 id INTEGER PRIMARY KEY,
                                 archive_disk_id INTEGER,
                                 disk_path TEXT,
                                 last_du INTEGER DEFAULT -1,
                                 last_du_time TIMESTAMP DEFAULT (strftime('%s','now')),
-                                creation_time TIMESTAMP DEFAULT (strftime('%','now')));")
+                                creation_time TIMESTAMP DEFAULT (strftime('%s','now')));")
 	;; tests allocated to what chunks. reusing a chunk for a test/item_path is very efficient
 	;; NB// the per run/test recording of where the archive is stored is done in the test
 	;;      record. 
 	(sqlite3:execute db "CREATE TABLE IF NOT EXISTS archive_allocations (
                                 id INTEGER PRIMARY KEY,
                                 archive_block_id INTEGER,
                                 testname TEXT,
                                 item_path TEXT,
-                                creation_time TIMESTAMP DEFAULT (strftime('%','now')));")
+                                creation_time TIMESTAMP DEFAULT (strftime('%s','now')));")
 	;; move this clean up call somewhere else
 	(sqlite3:execute db "DELETE FROM tasks_queue WHERE state='done' AND creation_time < ?;" (- (current-seconds)(* 24 60 60))) ;; remove older than 24 hrs
 	(sqlite3:execute db (conc "CREATE INDEX IF NOT EXISTS runs_index ON runs (runname" (if havekeys "," "") keystr ");"))
 	;; (sqlite3:execute db "CREATE VIEW runs_tests AS SELECT * FROM runs INNER JOIN tests ON runs.id=tests.run_id;")
 	(sqlite3:execute db "CREATE TABLE IF NOT EXISTS extradat (id INTEGER PRIMARY KEY, run_id INTEGER, key TEXT, val TEXT);")