diff --git a/scheme/ikarus.boot.prebuilt b/scheme/ikarus.boot.prebuilt
index 21a24aa..0edd1a1 100644
Binary files a/scheme/ikarus.boot.prebuilt and b/scheme/ikarus.boot.prebuilt differ
diff --git a/scheme/last-revision b/scheme/last-revision
index 56bf291..2069e31 100644
--- a/scheme/last-revision
+++ b/scheme/last-revision
@@ -1 +1 @@
-1387
+1388
diff --git a/scheme/psyntax.expander.ss b/scheme/psyntax.expander.ss
index 4aca8f7..ef7a8c8 100644
--- a/scheme/psyntax.expander.ss
+++ b/scheme/psyntax.expander.ss
@@ -43,7 +43,6 @@
     (psyntax compat)
     (psyntax config)
     (psyntax internal)
-    (only (ikarus) printf)
     (only (rnrs syntax-case) syntax-case syntax with-syntax)
     (prefix (rnrs syntax-case) sys.))
   
@@ -1413,7 +1412,7 @@
           (with-input-from-file filename
             (lambda ()
               (let f ((ls '()))
-                (let ((x (read)))
+                (let ((x (read-annotated)))
                   (cond
                     ((eof-object? x) (reverse ls))
                     (else
@@ -3538,7 +3537,8 @@
                   (let ((loc (car x)) (proc (cadr x)))
                     (set-symbol-value! loc proc)))
                 macro*))
-    (let-values (((name ver imp* inv* vis* invoke-code macro* export-subst export-env)
+    (let-values (((name ver imp* inv* vis* 
+                   invoke-code macro* export-subst export-env)
                   (core-library-expander x)))
       (let ((id (gensym))
             (name name)
@@ -3551,14 +3551,16 @@
            (lambda () (visit! macro*))
            (lambda () (eval-core (expanded->core invoke-code)))
            #t)
-        (values invoke-code
+        (values id name ver imp* vis* inv* 
+                invoke-code
                 (build-visit-code macro*)
                 export-subst export-env))))
 
   ;;; when bootstrapping the system, visit-code is not (and cannot
   ;;; be) be used in the "next" system.  So, we drop it.
   (define (boot-library-expand x)
-    (let-values (((invoke-code visit-code export-subst export-env)
+    (let-values (((id name ver imp* vis* inv* 
+                   invoke-code visit-code export-subst export-env)
                   (library-expander x)))
       (values invoke-code export-subst export-env)))
   
diff --git a/scheme/psyntax.library-manager.ss b/scheme/psyntax.library-manager.ss
index e0c5cb0..1223110 100644
--- a/scheme/psyntax.library-manager.ss
+++ b/scheme/psyntax.library-manager.ss
@@ -182,7 +182,8 @@
 
   (define (find-external-library name)
     (when (member name (external-pending-libraries))
-      (assertion-violation #f "circular attempt to import library was detected" name))
+      (assertion-violation #f 
+        "circular attempt to import library was detected" name))
     (parameterize ((external-pending-libraries
                     (cons name (external-pending-libraries))))
       (let ((lib-expr ((library-locator) name)))