diff --git a/scheme/cmdline.scm b/scheme/cmdline.scm
index 72292d3..abcad27 100644
--- a/scheme/cmdline.scm
+++ b/scheme/cmdline.scm
@@ -475,7 +475,7 @@
    str
    'pre
    (lambda (m)
-     (or (lookup-env-var (match:substring m 1)) (match:substring m 1)))
+     (or (getenv (match:substring m 1)) (match:substring m 1)))
    'post))