diff --git a/module/srfi/srfi-13.mes b/module/srfi/srfi-13.mes
index 3eed1bce..974844a3 100644
--- a/module/srfi/srfi-13.mes
+++ b/module/srfi/srfi-13.mes
@@ -85,3 +85,5 @@
       (if (null? lst) #f
           (if (pred (car lst)) i
               (loop (cdr lst) (1- i)))))))
+
+(define reverse-list->string (compose list->string reverse))