diff --git a/src/boot/boot.janet b/src/boot/boot.janet
index 6c602dbf..207c62fa 100644
--- a/src/boot/boot.janet
+++ b/src/boot/boot.janet
@@ -3093,7 +3093,7 @@
       (os/exit 1))
     (put env :exit true)
     (def buf @"")
-    (with-dyns [*err* buf]
+    (with-dyns [*err* buf *err-color* false]
       (bad-parse x y))
     (set exit-error (string/slice buf 0 -2)))
   (defn bc [&opt x y z a b]
@@ -3102,7 +3102,7 @@
       (os/exit 1))
     (put env :exit true)
     (def buf @"")
-    (with-dyns [*err* buf]
+    (with-dyns [*err* buf *err-color* false]
       (bad-compile x nil z a b))
     (set exit-error (string/slice buf 0 -2))
     (set exit-fiber y))
@@ -4837,9 +4837,6 @@
             (put env *args* subargs)
             (put env *lint-error* error-level)
             (put env *lint-warn* warn-level)
-            (put env *pretty-format* (if colorize "%.20Q" "%.20q"))
-            (put env *err-color* (if colorize true))
-            (put env *doc-color* (if colorize true))
             (when debug-flag
               (put env *debug* true)
               (put env *redef* true))
@@ -4849,9 +4846,6 @@
             (put env *args* subargs)
             (put env *lint-error* error-level)
             (put env *lint-warn* warn-level)
-            (put env *pretty-format* (if colorize "%.20Q" "%.20q"))
-            (put env *err-color* (if colorize true))
-            (put env *doc-color* (if colorize true))
             (when debug-flag
               (put env *debug* true)
               (put env *redef* true))
@@ -4884,11 +4878,11 @@
         (def getter (if raw-stdin getstdin getline))
         (defn getchunk [buf p]
           (getter (getprompt p) buf env))
-        (put env *pretty-format* (if colorize "%.20Q" "%.20q"))
-        (put env *err-color* (if colorize true))
-        (put env *doc-color* (if colorize true))
-        (put env *lint-error* error-level)
-        (put env *lint-warn* warn-level)
+        (setdyn *pretty-format* (if colorize "%.20Q" "%.20q"))
+        (setdyn *err-color* (if colorize true))
+        (setdyn *doc-color* (if colorize true))
+        (setdyn *lint-error* error-level)
+        (setdyn *lint-warn* warn-level)
         (when-let [profile.janet (dyn *profilepath*)]
           (dofile profile.janet :exit true :env env)
           (put env *current-file* nil))
diff --git a/test/suite-compile.janet b/test/suite-compile.janet
index 5f3330fc..b3c280b0 100644
--- a/test/suite-compile.janet
+++ b/test/suite-compile.janet
@@ -76,3 +76,4 @@
   10)
 
 (end-suite)
+