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