fixed char encoding error message and condition as per bug 243662.

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)

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)

scheme/last-revision

@@ -1 +1 @@
-1522
+1523