diff --git a/scheme/ikarus.boot.4.prebuilt b/scheme/ikarus.boot.4.prebuilt
index a3fe74f..19d015b 100644
Binary files a/scheme/ikarus.boot.4.prebuilt and b/scheme/ikarus.boot.4.prebuilt differ
diff --git a/scheme/ikarus.boot.8.prebuilt b/scheme/ikarus.boot.8.prebuilt
index 6af81bd..f415e1c 100644
Binary files a/scheme/ikarus.boot.8.prebuilt and b/scheme/ikarus.boot.8.prebuilt differ
diff --git a/scheme/ikarus.load.ss b/scheme/ikarus.load.ss
index f78dfff..f834755 100644
--- a/scheme/ikarus.load.ss
+++ b/scheme/ikarus.load.ss
@@ -31,8 +31,11 @@
       [(<= (fixnum-width) 32) ".ikarus-32bit-fasl"]
       [else                   ".ikarus-64bit-fasl"]))
 
+  (define (fasl-path filename)
+    (string-append filename fasl-extension))
+
   (define (load-serialized-library filename sk)
-    (let ([ikfasl (string-append filename fasl-extension)])
+    (let ([ikfasl (fasl-path filename)])
       (cond
         [(not (file-exists? ikfasl)) #f]
         [(< (file-mtime ikfasl) (file-mtime filename))
@@ -58,7 +61,7 @@
                  #f)))])))
 
   (define (do-serialize-library filename contents)
-    (let ([ikfasl (string-append filename fasl-extension)])
+    (let ([ikfasl (fasl-path filename)])
       (fprintf (current-error-port) "Serializing ~s ...\n" ikfasl)
       (let ([p (open-file-output-port ikfasl (file-options no-fail))])
         (fasl-write (make-serialized-library contents) p)
diff --git a/scheme/last-revision b/scheme/last-revision
index 81f2d52..f6f1900 100644
--- a/scheme/last-revision
+++ b/scheme/last-revision
@@ -1 +1 @@
-1792
+1793