@@ -1121,10 +1121,12 @@
 	       #f ;; no path - fail!
 	       (let ((calling-path (car remparam)))
 		 (if (equal? calling-path *toppath*)
 		     #t      ;; path matches - pass! Should vet the caller at this time ...
 		     #f))))  ;; else fail to login
+	  ((flush)
+	   (
 	  (else
 	   (mutex-lock! *incoming-mutex*)
 	   (set! *last-db-access* (current-seconds))
 	   (set! *incoming-data* (cons 
 				  (vector qry-name