Index: tests.scm
==================================================================
--- tests.scm
+++ tests.scm
@@ -28,22 +28,20 @@
 (include "db_records.scm")
 (include "run_records.scm")
 (include "test_records.scm")
 
 (define (tests:register-test db run-id test-name item-path)
-;;   (with-dot-lock ;; NOTE: This locking only reduces the number of overlapping db accesses on a single machine!! 
-;;    "megatest.lock"
    (let ((item-paths (if (equal? item-path "")
 			 (list item-path)
 			 (list item-path ""))))
      (for-each 
       (lambda (pth)
 	(sqlite3:execute db "INSERT OR IGNORE INTO tests (run_id,testname,event_time,item_path,state,status) VALUES (?,?,strftime('%s','now'),?,'NOT_STARTED','n/a');" 
 			 run-id 
 			 test-name
 			 pth))
-      item-paths ))) ;; )
+      item-paths)))
 
 ;; get the previous record for when this test was run where all keys match but runname
 ;; returns #f if no such test found, returns a single test record if found
 (define (test:get-previous-test-run-record db run-id test-name item-path)
   (let* ((keys    (db:get-keys db))