@@ -641,10 +641,14 @@
 (define (rmt:get-testinfo-state-status run-id test-id)
   (rmt:send-receive 'get-testinfo-state-status run-id (list run-id test-id)))
 
 (define (rmt:test-set-log! run-id test-id logf)
   (if (string? logf)(rmt:general-call 'test-set-log run-id logf test-id)))
+
+(define (rmt:test-set-comment! run-id test-id comment)
+  (if (string? comment)(rmt:general-call 'test-set-comment run-id comment test-id)))
+
 
 (define (rmt:test-set-top-process-pid run-id test-id pid)
   (rmt:send-receive 'test-set-top-process-pid run-id (list run-id test-id pid)))
 
 (define (rmt:test-get-top-process-pid run-id test-id)