diff --git a/mes/module/mes/scm.mes b/mes/module/mes/scm.mes
index 8a49fd26..9909c426 100644
--- a/mes/module/mes/scm.mes
+++ b/mes/module/mes/scm.mes
@@ -202,6 +202,9 @@
 (define (hash-ref table key . rest)
   (core:hash-ref table key (and (pair? rest) (car rest))))
 
+(define (hash-fold proc init table)
+  (fold proc init (hash-map->list cons table)))
+
 
 ;; Variable
 (define (make-undefined-variable)