diff --git a/scheme/ikarus.io.ss b/scheme/ikarus.io.ss
index 5038116..a2d053b 100644
--- a/scheme/ikarus.io.ss
+++ b/scheme/ikarus.io.ss
@@ -1284,7 +1284,7 @@
       (die 'open-output-file "invalid filename" filename))
     (fh->output-port 
        (open-output-file-handle filename (file-options) 
-          'open-input-file)
+          'open-output-file)
        filename
        output-file-buffer-size
        (native-transcoder)
diff --git a/scheme/last-revision b/scheme/last-revision
index 28c4289..6c4b548 100644
--- a/scheme/last-revision
+++ b/scheme/last-revision
@@ -1 +1 @@
-1252
+1253