Index: tests.scm
==================================================================
--- tests.scm
+++ tests.scm
@@ -367,11 +367,11 @@
     (debug:print 4 "summarize-items with logf " logf ", outputfilename " outputfilename " and force " force)
     (if (or (equal? logf "logs/final.log")
 	    (equal? logf outputfilename)
 	    force)
 	(begin
-	  (if Onot (obtain-dot-lock outputfilename 1 5 7)) ;; retry every second for 20 seconds, call it dead after 30 seconds and steal the lock
+	  (if (not (obtain-dot-lock outputfilename 1 5 7)) ;; retry every second for 20 seconds, call it dead after 30 seconds and steal the lock
 	      (print "Failed to obtain lock for " outputfilename)
 	      (begin
 		(print "Obtained lock for " outputfilename)
 		(let ((oup    (open-output-file outputfilename))
 		      (counts (make-hash-table))
@@ -432,11 +432,11 @@
 		      (release-dot-lock outputfilename)))
 		  (close-output-port oup)
 		  (change-directory orig-dir)
 		  ;; NB// tests:test-set-toplog! is remote internal...
 		  (tests:test-set-toplog! db run-id test-name outputfilename)
-		  ))))))
+		  )))))))
 
 (define (get-all-legal-tests)
   (let* ((tests  (glob (conc *toppath* "/tests/*")))
 	 (res    '()))
     (debug:print-info 4 "Looking at tests " (string-intersperse tests ","))