@@ -79,10 +79,11 @@
 	newremote)))
 
 ;; NB// area-dat replaced by ttdat
 ;; 
 (define (rmt:send-receive cmd run-id params #!key (attemptnum 1)(ttdat #f))
+  (assert (or (not run-id) (number? run-id)) "FATAL: run-id is required to be a number or #f")
   (assert *toppath* "FATAL: rmt:send-receive called with *toppath* not set.")
   (let* ((areapath      *toppath*) ;; TODO - resolve from dbstruct to be compatible with multiple areas
 	 (readonly-mode (rmtmod:calc-ro-mode ttdat *toppath*))
 	 (testsuite     (common:get-testsuite-name)))
     (case (rmt:transport-mode)