diff --git a/scheme/ikarus.writer.ss b/scheme/ikarus.writer.ss
index 4db49ae..4f90917 100644
--- a/scheme/ikarus.writer.ss
+++ b/scheme/ikarus.writer.ss
@@ -405,9 +405,10 @@
                 (write-char c p)]
                [($fx< b 127)
                 (write-char c p)]
-               [(unicode-printable-char? c) 
+               [(print-unicode) 
                 (write-char c p)]
-               [else (write-inline-hex b p)]))
+               [else
+                (write-inline-hex b p)]))
            (loop x (fxadd1 i) n p)))) 
       (write-char #\" p)
       (loop x 0 (string-length x) p)
diff --git a/scheme/last-revision b/scheme/last-revision
index 59a0a5c..6ad20cc 100644
--- a/scheme/last-revision
+++ b/scheme/last-revision
@@ -1 +1 @@
-1580
+1581