@@ -1233,11 +1233,12 @@
 
 ;; do not run these as part of the transaction
 (define db:special-queries   '(rollup-tests-pass-fail
 			       db:roll-up-pass-fail-counts
                                login
-                               immediate))
+                               immediate
+			       flush))
 
 ;; not used, intended to indicate to run in calling process
 (define db:run-local-queries '()) ;; rollup-tests-pass-fail))
 
 ;; The queue is a list of vectors where the zeroth slot indicates the type of query to
@@ -1262,11 +1263,12 @@
 			   (debug:print-info 11 "stmt-key=" stmt-key ", stmt=" stmt)
 			   (if stmt
 			       (hash-table-set! queries stmt-key (sqlite3:prepare db (car stmt)))
 			       (if (procedure? stmt-key)
 				   (hash-table-set! queries stmt-key #f)
-				   (debug:print 0 "ERROR: Missing query spec for " stmt-key "!")))))))
+				   (if (not (member stmt-key db:special-queries))
+				       (debug:print 0 "ERROR: Missing query spec for " stmt-key "!"))))))))
 		 data)
        
        ;; outer loop to handle special queries that cannot be handled in the
        ;; transaction.
        (let outerloop ((special-qry #f)
@@ -1311,10 +1313,12 @@
 				   (equal? megatest-version calling-vers))
 			      (begin
 				(hash-table-set! *logged-in-clients* client-key (current-seconds))
 				(server:reply  pubsock return-address '(#t "successful login")))      ;; path matches - pass! Should vet the caller at this time ...
 			      (list #f (conc "Login failed due to mismatch paths: " calling-path ", " *toppath*))))))
+		   ((flush)
+		    (server:reply pubsock return-address '(#t "sucessful flush")))
 		   (else
 		    (debug:print 0 "ERROR: Unrecognised queued call " qry " " params)))))
 	       (if (not (null? stmts))
 		   (outerloop #f stmts)))