Index: db_records.scm
==================================================================
--- db_records.scm
+++ db_records.scm
@@ -63,12 +63,12 @@
   (hash-table-ref/default (dbr:dbstruct-get-locdbs v) run-id #f))
 
 (define (dbr:dbstruct-set-localdb! v run-id db)
   (hash-table-set! (dbr:dbstruct-get-locdbs v) run-id db))
 
-
-(defstruct db:test ((id -1) : number)
+(require-extension typed-records)
+(defstruct db:test-rec ((id -1) : number)
 					((run_id -1) : number) 
 					((testname "") : string)
 					((state "") : string)
 					((status "") : string)
 					((event_time -1) : number)