diff --git a/lab/optimize-gc.txt b/lab/optimize-gc.txt
index 9a0278a..014bd63 100644
--- a/lab/optimize-gc.txt
+++ b/lab/optimize-gc.txt
@@ -20,3 +20,7 @@ Copyright (c) 2006 Abdulaziz Ghuloum
 As of r127:
         3.79 real         3.15 user         0.63 sys
 
+With engines (r139):     
+        3.94 real         3.23 user         0.69 sys
+  Note: this is about 2% overhead.
+
diff --git a/lab/sudoku-2.ss b/lab/sudoku-2.ss
index 4766c8f..c39d9a3 100644
--- a/lab/sudoku-2.ss
+++ b/lab/sudoku-2.ss
@@ -414,7 +414,8 @@
                 (if (= count2 1)
                     (begin
                       (let ([row (+ (car (sub-grid-list sub)) (quotient loc 3))]
-                            [col (+ (caddr (sub-grid-list sub)) (modulo loc 3))])
+                            [col (+ (caddr (sub-grid-list sub))
+                                    (remainder loc 3))])
                         (grid-set! row col (+ i 1))
                         (row-init row)
                         (col-init col)
@@ -603,8 +604,6 @@
       (print-sudoku)
       (error 'sudoku "MIS-ENTERED INITIALIZATION"))))
 
-(define quotient fxquotient)
-(define modulo fxmodulo)
 (define do-file
   (lambda ()
     (let f ()
diff --git a/src/ikarus.boot b/src/ikarus.boot
index b7b47a1..a506169 100644
Binary files a/src/ikarus.boot and b/src/ikarus.boot differ
diff --git a/src/libcompile.ss b/src/libcompile.ss
index a5a84d4..c9ad6a1 100644
--- a/src/libcompile.ss
+++ b/src/libcompile.ss
@@ -4874,7 +4874,8 @@
                        [print-gensym #f])
           (for-each 
             (lambda (ls)
-              (for-each (lambda (x) (printf "    ~s\n" x)) ls))
+              (newline)
+              (for-each (lambda (x) (printf "    ~s\n" x)) (cdr ls)))
             ls*)))
       (let ([code* (list*->code* 
                       (lambda (x)