diff --git a/app/src/entry-point.lisp b/app/src/entry-point.lisp
index 8fecb002c..bf85c8eb5 100644
--- a/app/src/entry-point.lisp
+++ b/app/src/entry-point.lisp
@@ -486,11 +486,11 @@ Returns a values tuple (PROCESSED-PROGRAM, STATISTICS), where PROCESSED-PROGRAM
   (let* ((statistics (make-hash-table :test #'equal))
          (cl-quil::*compiler-noise* verbose)
          (*random-state* (make-random-state t))
-         (quil::*enable-state-prep-compression* state-aware)
-         (quil::*enable-approximate-compilation* enable-approximate-compilation)
-         (quil::*compressor-passes* (or compressor-passes quil::*compressor-passes*))
-         (quil::*rewriting-peephole-size* (or rewriting-peephole-size quil::*rewriting-peephole-size*))
-         (quil::*global-queue-tolerance-threshold* (or global-queue-tolerance-threshold quil::*global-queue-tolerance-threshold*))
+         (cl-quil::*enable-state-prep-compression* state-aware)
+         (cl-quil::*enable-approximate-compilation* enable-approximate-compilation)
+         (cl-quil::*compressor-passes* (or compressor-passes cl-quil::*compressor-passes*))
+         (cl-quil::*rewriting-peephole-size* (or rewriting-peephole-size cl-quil::*rewriting-peephole-size*))
+         (cl-quil::*global-queue-tolerance-threshold* (or global-queue-tolerance-threshold cl-quil::*global-queue-tolerance-threshold*))
          )
     ;; do the compilation
     (multiple-value-bind (processed-program topological-swaps)