@@ -76,27 +76,30 @@
     (begin
       (print "Failed to find megatest.config, exiting") 
       (exit 1)))
 
 (define *db* (open-db))
+
+;; HACK ALERT: this is a hack, please fix.
+(define *read-only* (file-read-access? (conc *toppath* "/megatest.db")))
 ;; (server:client-setup *db*)
 
 (define toplevel #f)
 (define dlg      #f)
 (define max-test-num 0)
-(define *keys*   (rdb:get-keys   *db*))
-(define *keys*   (db:get-keys   *db*))
+(define *keys*   (rdb:get-keys  *db*))
+;; (define *keys*   (db:get-keys   *db*))
 (define *dbkeys*  (map (lambda (x)(vector-ref x 0))
 		      (append *keys* (list (vector "runname" "blah")))))
 (define *header*       #f)
 (define *allruns*     '())
 (define *buttondat*    (make-hash-table)) ;; <run-id color text test run-key>
 (define *alltestnamelst* '())
 (define *searchpatts*  (make-hash-table))
 (define *num-runs*      8)
 (define *tot-run-count* (rdb:get-num-runs *db* "%"))
-(define *tot-run-count* (db:get-num-runs *db* "%"))
+;; (define *tot-run-count* (db:get-num-runs *db* "%"))
 (define *last-update*   (current-seconds))
 (define *num-tests*     15)
 (define *start-run-offset*  0)
 (define *start-test-offset* 0)
 (define *examine-test-dat* (make-hash-table))