diff --git a/mes/module/mes/scm.mes b/mes/module/mes/scm.mes
index 9909c426..d8625a57 100644
--- a/mes/module/mes/scm.mes
+++ b/mes/module/mes/scm.mes
@@ -205,6 +205,11 @@
 (define (hash-fold proc init table)
   (fold proc init (hash-map->list cons table)))
 
+(define (hash-for-each proc table)
+  (hash-map->list proc table)
+  ;;(hash-fold (lambda (key value x) (proc key value)) #f table)
+  *unspecified*)
+
 
 ;; Variable
 (define (make-undefined-variable)