diff --git a/collects/compiler/demodularizer/gc-toplevels.rkt b/collects/compiler/demodularizer/gc-toplevels.rkt
index a016720caa..79401002d5 100644
--- a/collects/compiler/demodularizer/gc-toplevels.rkt
+++ b/collects/compiler/demodularizer/gc-toplevels.rkt
@@ -41,12 +41,12 @@
            (index<=? stx-pos ordered-stxs))
          (prefix-syntax-start new-prefix))
         form))
-     (log-debug (format "Total TLS: ~S~n" (length normal-tls)))
-     (log-debug (format "Used TLS: ~S~n" normal-tls))
-     (log-debug (format "Total lifts: ~S~n" (length lifts)))
-     (log-debug (format "Used lifts: ~S~n" lifts))
-     (log-debug (format "Total stxs: ~S~n" (length stxs)))
-     (log-debug (format "Used stxs: ~S~n" ordered-stxs))
+     (log-debug (format "Total TLS: ~S" (length normal-tls)))
+     (log-debug (format "Used TLS: ~S" normal-tls))
+     (log-debug (format "Total lifts: ~S" (length lifts)))
+     (log-debug (format "Used lifts: ~S" lifts))
+     (log-debug (format "Total stxs: ~S" (length stxs)))
+     (log-debug (format "Used stxs: ~S" ordered-stxs))
      (make-compilation-top
       max-let-depth
       new-prefix
diff --git a/collects/compiler/demodularizer/mpi.rkt b/collects/compiler/demodularizer/mpi.rkt
index ae86a43832..135bf24ecc 100644
--- a/collects/compiler/demodularizer/mpi.rkt
+++ b/collects/compiler/demodularizer/mpi.rkt
@@ -22,7 +22,7 @@
 (define (mpi->path* mpi)
   (hash-ref MODULE-PATHS mpi 
             (lambda ()
-              (error 'mpi->path* "Cannot locate cache of path for ~S~n" mpi))))
+              (error 'mpi->path* "Cannot locate cache of path for ~S" mpi))))
 
 (provide/contract
  [current-module-path (parameter/c path-string?)]
diff --git a/collects/compiler/demodularizer/nodep.rkt b/collects/compiler/demodularizer/nodep.rkt
index 54507f2365..827c38026f 100644
--- a/collects/compiler/demodularizer/nodep.rkt
+++ b/collects/compiler/demodularizer/nodep.rkt
@@ -57,7 +57,7 @@
                (current-directory)))
          (define-values (modvar-rewrite lang-info ctop)
            (begin
-             (log-debug (format "Load ~S @ ~S~n" pth phase))
+             (log-debug (format "Load ~S @ ~S" pth phase))
              (nodep/dir
               (parameterize ([current-load-relative-directory base-directory])
                 (path->comp-top
@@ -98,7 +98,7 @@
       (when (symbol? tl)
         (hash-set! provide-ht (intern tl) i)))  
   (lambda (sym pos)
-    (log-debug (format "Looking up ~S@~a~n" sym pos))
+    (log-debug (format "Looking up ~S@~a" sym pos))
     (hash-ref provide-ht (intern sym)
               (lambda ()
                 (error 'provide->toplevel "Cannot find ~S in ~S" sym prefix)))))
@@ -114,15 +114,15 @@
                  [tl
                   (void)])
                (prefix-toplevels new-prefix))
-     (log-debug (format "[~S] module-variables: ~S~n" name (length (filter module-variable? (prefix-toplevels new-prefix)))))
+     (log-debug (format "[~S] module-variables: ~S" name (length (filter module-variable? (prefix-toplevels new-prefix)))))
      (values (make-modvar-rewrite self-modidx (construct-provide->toplevel new-prefix provides))
              lang-info
              (append (requires->modlist requires phase)
                      (if (and phase (zero? phase))
-                         (begin (log-debug (format "[~S] lang-info : ~S~n" name lang-info)) ; XXX Seems to always be #f now
+                         (begin (log-debug (format "[~S] lang-info : ~S" name lang-info)) ; XXX Seems to always be #f now
                                 (list (make-mod name srcname self-modidx new-prefix provides requires body empty
                                                 unexported max-let-depth dummy lang-info internal-context)))
-                         (begin (log-debug (format "[~S] Dropping module @ ~S~n" name phase))
+                         (begin (log-debug (format "[~S] Dropping module @ ~S" name phase))
                                 empty))))]              
     [else (error 'nodep-module "huh?: ~e" mod-form)]))
 
@@ -168,7 +168,7 @@
     [(@phase? ct)
      (extract-modules (@phase-ctop ct))]
     [else
-     (error 'extract-modules "Unknown extraction: ~S~n" ct)]))
+     (error 'extract-modules "Unknown extraction: ~S" ct)]))
 
 (provide/contract
  [struct modvar-rewrite