@@ -111,11 +111,11 @@
 		  (if (null? tal)
 		      (map cdr (hash-table->alist tests-hash)) ;; return a list of the most recent tests
 		      (loop (car tal)(cdr tal))))))))))
 
 ;; 
-(define (test-set-status! db test-id state status comment dat)
+(define (tests:test-set-status! db test-id state status comment dat)
   (let* ((real-status status)
 	 (otherdat    (if dat dat (make-hash-table)))
 	 (testdat     (db:get-test-info-by-id db test-id))
 	 (run-id      (db:test-get-run_id testdat))
 	 (test-name   (db:test-get-testname   testdat))
@@ -190,11 +190,11 @@
 	    waived)
 	(let ((cmt  (if waived waived comment)))
 	  (db:test-set-comment db test-id cmt)))
     ))
 
-(define (test-set-toplog! db run-id test-name logf) 
+(define (tests:test-set-toplog! db run-id test-name logf) 
   (sqlite3:execute db "UPDATE tests SET final_logf=? WHERE run_id=? AND testname=? AND item_path='';" 
 		   logf run-id test-name))
 
 (define (tests:summarize-items db run-id test-name force)
   ;; if not force then only update the record if one of these is true:
@@ -275,11 +275,11 @@
 		       "<tr><td>Item</td><td>State</td><td>Status</td><td>Comment</td>"
 		       outtxt "</table></body></html>")
 		(release-dot-lock outputfilename)))
 	    (close-output-port oup)
 	    (change-directory orig-dir)
-	    (test-set-toplog! db run-id test-name outputfilename)
+	    (tests:test-set-toplog! db run-id test-name outputfilename)
 	    )))))
 
 (define (get-all-legal-tests)
   (let* ((tests  (glob (conc *toppath* "/tests/*")))
 	 (res    '()))
@@ -453,14 +453,14 @@
 (define (rtests:test-set-status!  db test-id state status comment dat)
   (if *runremote*
       (let ((host (vector-ref *runremote* 0))
 	    (port (vector-ref *runremote* 1)))
 	((rpc:procedure 'rtests:test-set-status! host port) test-id state status comment dat))
-      (test-set-status! db test-id state status comment dat)))
+      (tests:test-set-status! db test-id state status comment dat)))
 
 (define (rtests:test-set-toplog! db run-id test-name logf)
   (if *runremote*
       (let ((host (vector-ref *runremote* 0))
             (port (vector-ref *runremote* 1)))
         ((rpc:procedure 'rtests:test-set-toplog! host port) run-id test-name logf))
-      (test-set-toplog! db run-id test-name logf)))
+      (tests:test-set-toplog! db run-id test-name logf)))