diff --git a/scheme/ikarus.io.ss b/scheme/ikarus.io.ss
index aef64dd..05e8ffe 100644
--- a/scheme/ikarus.io.ss
+++ b/scheme/ikarus.io.ss
@@ -1940,7 +1940,7 @@
            [(ignore) (void)]
            [(replace) (put-char p #\?)]
            [(raise) 
-            (raise (make-i/o-encoding-error p))]
+            (raise (make-i/o-encoding-error p (integer->char b)))]
            [else (die who "BUG: invalid die handling mode" p)])]))
     (define (put-char-char-mode p c who)
       (flush-output-port p)
diff --git a/scheme/ikarus.records.procedural.ss b/scheme/ikarus.records.procedural.ss
index 1ba95e5..6a73f36 100644
--- a/scheme/ikarus.records.procedural.ss
+++ b/scheme/ikarus.records.procedural.ss
@@ -255,7 +255,7 @@
             (if (pair? ls) 
                 (let-values ([(m p) (f (cdr ls) (- n 1))]) 
                   (values (cons (car ls) m) p))
-                (die 'record-condtructor "insufficient arguments"
+                (die 'record-constructor "insufficient arguments"
                        all-fields)))))
 
     (define (constructor main-rtd size prcd proto)
diff --git a/scheme/last-revision b/scheme/last-revision
index 64a0513..d2a3f63 100644
--- a/scheme/last-revision
+++ b/scheme/last-revision
@@ -1 +1 @@
-1522
+1523