diff --git a/module/language/cps/compile-rtl.scm b/module/language/cps/compile-rtl.scm
index 7ed0c1113..a84280481 100644
--- a/module/language/cps/compile-rtl.scm
+++ b/module/language/cps/compile-rtl.scm
@@ -49,9 +49,7 @@
 (define (optimize exp opts)
   (define (run-pass exp pass kw default)
     (if (kw-arg-ref opts kw default)
-        (begin
-          (pk 'OPTIMIZING kw)
-          (pass exp))
+        (pass exp)
         exp))
 
   ;; Calls to source-to-source optimization passes go here.
@@ -504,13 +502,11 @@
     (_ (values))))
 
 (define (compile-rtl exp env opts)
-  (pk 'COMPILING)
   (let* ((exp (fix-arities exp))
          (exp (optimize exp opts))
          (exp (convert-closures exp))
          (exp (reify-primitives exp))
          (asm (make-assembler)))
-    (pk 'CODEGEN)
     (visit-funs (lambda (fun)
                   (compile-fun fun asm))
                 exp)
diff --git a/module/language/cps/contification.scm b/module/language/cps/contification.scm
index aa162e021..da7320660 100644
--- a/module/language/cps/contification.scm
+++ b/module/language/cps/contification.scm
@@ -348,7 +348,5 @@
       (if (null? call-substs)
           fun
           ;; Iterate to fixed point.
-          (begin
-            (pk 'CONTIFIED (length call-substs))
-            (contify
-             (apply-contification fun call-substs cont-substs fun-elisions cont-splices)))))))
+          (contify
+           (apply-contification fun call-substs cont-substs fun-elisions cont-splices))))))