diff --git a/src/brmelect.scm b/src/brmelect.scm
index 4b9cb6f..3b32eff 100644
--- a/src/brmelect.scm
+++ b/src/brmelect.scm
@@ -46,7 +46,7 @@
   (let ((val (hash-table-ref/default parameters key "")))
     (cond
       ((string? val) val)
-      (else (message-body val)))))
+      (else (message-body (car val))))))
 
 (define (int-param parameters key)
   (string->number (param parameters key)))