diff --git a/scheme/ikarus.io.ss b/scheme/ikarus.io.ss
index 6a4aa08..4d2a98f 100644
--- a/scheme/ikarus.io.ss
+++ b/scheme/ikarus.io.ss
@@ -1251,15 +1251,21 @@
 
   (define *the-input-port* 
     (make-parameter
-      (transcoded-port (standard-input-port) (native-transcoder))))
+      (transcoded-port 
+        (fh->input-port 0 '*stdin* file-buffer-size #f #f)
+        (native-transcoder))))
 
   (define *the-output-port* 
     (make-parameter
-      (transcoded-port (standard-output-port) (native-transcoder))))
+      (transcoded-port
+        (fh->output-port 1 '*stdout* file-buffer-size #f #f)
+        (native-transcoder))))
   
   (define *the-error-port* 
     (make-parameter
-      (transcoded-port (standard-error-port) (native-transcoder))))
+      (transcoded-port 
+        (fh->output-port 2 '*stderr* file-buffer-size #f #f)
+        (native-transcoder))))
 
   (define console-output-port
     (let ([p (*the-output-port*)])
diff --git a/scheme/last-revision b/scheme/last-revision
index f70eccf..53d108b 100644
--- a/scheme/last-revision
+++ b/scheme/last-revision
@@ -1 +1 @@
-1230
+1231