diff --git a/scheme/ikarus.writer.ss b/scheme/ikarus.writer.ss
index 4ca10cc..f1c7eca 100644
--- a/scheme/ikarus.writer.ss
+++ b/scheme/ikarus.writer.ss
@@ -543,13 +543,13 @@
          i]
         [(output-port? x)
          (write-char* "#<output-port " p)
-         (write-char* (if (binary-port? p) "(binary)" "(textual)") p)
+         (write-char* (if (binary-port? x) "(binary) " "(textual) ") p)
          (let ([i (writer (output-port-name x) p #t h i)])
            (write-char #\> p)
            i)]
         [(input-port? x)
          (write-char* "#<input-port " p)
-         (write-char* (if (binary-port? p) "(binary)" "(textual)") p)
+         (write-char* (if (binary-port? x) "(binary) " "(textual) ") p)
          (let ([i (writer (input-port-name x) p #t h i)])
            (write-char #\> p)
            i)]
diff --git a/scheme/last-revision b/scheme/last-revision
index ca6c077..7776e09 100644
--- a/scheme/last-revision
+++ b/scheme/last-revision
@@ -1 +1 @@
-1356
+1358