diff --git a/scaffold/mini-mes.c b/scaffold/mini-mes.c
index 18f8308f..9da6de98 100644
--- a/scaffold/mini-mes.c
+++ b/scaffold/mini-mes.c
@@ -456,6 +456,14 @@ length (SCM x)
 
 SCM apply (SCM, SCM, SCM);
 
+SCM
+assq_ref_env (SCM x, SCM a)
+{
+  x = assq (x, a);
+  if (x == cell_f) return cell_undefined;
+  return CDR (x);
+}
+
 SCM
 error (SCM key, SCM x)
 {
@@ -638,14 +646,6 @@ assq (SCM x, SCM a)
   return a != cell_nil ? CAR (a) : cell_f;
 }
 
-SCM
-assq_ref_env (SCM x, SCM a)
-{
-  x = assq (x, a);
-  if (x == cell_f) return cell_undefined;
-  return CDR (x);
-}
-
 SCM
 set_car_x (SCM x, SCM e)
 {