diff --git a/scheme/ikarus.fasl.write.ss b/scheme/ikarus.fasl.write.ss
index c69b9dc..751e3af 100644
--- a/scheme/ikarus.fasl.write.ss
+++ b/scheme/ikarus.fasl.write.ss
@@ -388,7 +388,10 @@
          (void))))
   (define fasl-write
     (case-lambda 
-      [(x port)
-       (unless (and (output-port? port) (binary-port? port))
-         (die 'fasl-write "not an output port" port))
-       (fasl-write-to-port x port)])))
+      [(x p)
+       (cond
+         [(not (output-port? p)) 
+          (die 'fasl-write "not an output port" p)]
+         [(not (binary-port? p))
+          (die 'fasl-write "not a binary port" p)]
+         [else (fasl-write-to-port x p)])])))
diff --git a/scheme/last-revision b/scheme/last-revision
index accf44d..504121e 100644
--- a/scheme/last-revision
+++ b/scheme/last-revision
@@ -1 +1 @@
-1402
+1405