mes: Oops, %moduledir debug info.

* mes/module/mes/boot-0.scm.in: Oops, %moduledir debug info.

diff --git a/mes/module/mes/boot-0.scm.in b/mes/module/mes/boot-0.scm.in
index b497b0e17d5eaa022dd5a520c865d95fcce2b84f..9351c3b36da6bb4e7d02ac8d8ac0e9e738d38e71 100644 (file)
--- a/mes/module/mes/boot-0.scm.in
+++ b/mes/module/mes/boot-0.scm.in
@@ -183,9 +183,9 @@
                      "@VERSION@"))
 (define (effective-version) %version)
 
-(if (list 'and (list getenv "MES_DEBUG")
-          (list not (list equal2? (list getenv "MES_DEBUG") "0"))
-          (list not (list equal2? (list getenv "MES_DEBUG") "1")))
+(if (and (getenv "MES_DEBUG")
+          (not (equal2? (getenv "MES_DEBUG") "0"))
+          (not (equal2? (getenv "MES_DEBUG") "1")))
     (begin
       (core:display-error ";;; %moduledir=")
       (core:display-error %moduledir)