diff --git a/README.md b/README.md
index 88bc036..853f5f4 100644
--- a/README.md
+++ b/README.md
@@ -209,6 +209,7 @@ UTest об ошибке в симуляции. К сожалению, в Icarus
   на файл с входными данными для теста.
 - `UTEST_WORK_DIR` - путь ко временной рабочей папке теста. Сюда можно сохранить результаты тестбенча для последующей
   проверки в коде сценария.
+- `UTEST_TESTBENCH` - флаг для определения того, что код выполняется в среде UTest (`ifdef UTEST_TESTBENCH ...`).
 
 Примеры
 -------
diff --git a/utest.scm b/utest.scm
index c901402..67223da 100755
--- a/utest.scm
+++ b/utest.scm
@@ -649,7 +649,8 @@
 ;;;
 (define (utest-verilog-defines)
   (append
-   `((UTEST_BASE_DIR ,(format "'\"~a\"'" (utest/base-path)))
+   `(UTEST_TESTBENCH
+     (UTEST_BASE_DIR ,(format "'\"~a\"'" (utest/base-path)))
      (UTEST_WORK_DIR ,(format "'\"~a\"'" (utest/work-path))))
 
    (fold (lambda (x l)