diff --git a/lisp/core/compile.el b/lisp/core/compile.el
index e828dc68..eb9fc96c 100644
--- a/lisp/core/compile.el
+++ b/lisp/core/compile.el
@@ -29,8 +29,10 @@
 
 (add-hook 'eask-before-command-hook
           (lambda ()
-            (when (eask-strict-p)      (setq byte-compile-error-on-warn t))
-            (when (= eask-verbosity 4) (setq byte-compile-verbose t))))
+            (when (eask-strict-p)
+              (setq byte-compile-error-on-warn t))
+            (when (eask-reach-verbosity-p 'debug)
+              (setq byte-compile-verbose t))))
 
 ;;
 ;;; Core
diff --git a/lisp/test/ert-runner.el b/lisp/test/ert-runner.el
index 03ea3daa..0019ff06 100644
--- a/lisp/test/ert-runner.el
+++ b/lisp/test/ert-runner.el
@@ -17,7 +17,8 @@
 ;; Handle options
 (add-hook 'eask-before-command-hook
           (lambda ()
-            (when (= eask-verbosity 4) (setq ert-runner-verbose t))))
+            (when (eask-reach-verbosity-p 'debug)
+              (setq ert-runner-verbose t))))
 
 (eask-start
   (eask-with-archives '("gnu" "melpa")