diff --git a/scheme/ikarus.writer.ss b/scheme/ikarus.writer.ss
index 6f9a655..e087f47 100644
--- a/scheme/ikarus.writer.ss
+++ b/scheme/ikarus.writer.ss
@@ -566,7 +566,7 @@
       [else (write-char* "#<procedure>" p)]))
   (define (write-port x p)
     (write-char* "#<" p)
-    (write-char* (if (output-port? p) "output" "input") p)
+    (write-char* (if (output-port? x) "output" "input") p)
     (write-char* "-port " p)
     (write-char* (if (binary-port? x) "(binary) " "(textual) ") p)
     (let ([i (wr (port-id x) p #t h i)])
diff --git a/scheme/last-revision b/scheme/last-revision
index b385a42..eeda100 100644
--- a/scheme/last-revision
+++ b/scheme/last-revision
@@ -1 +1 @@
-1663
+1664