fixed bug in fasl-reading unicode chars in 64-bit mode.

scheme/ikarus.fasl.ss

@@ -333,7 +333,7 @@
                      ($struct-set! x i (read))
                      (f (fxadd1 i))))
                  x)))]
-          [(#\C) (integer->char (read-int p))]
+          [(#\C) (integer->char (read-u32 p))]
           [(#\c) (read-u8-as-char p)]
           [(#\>)
            (let ([m (read-u32 p)])

scheme/last-revision

@@ -1 +1 @@
-1736
+1737

scheme/tests/fasl.ss

@@ -82,6 +82,7 @@
             (hashtable-set! h (gensym) 13)
             (collect)
             h))
+    (test '(#\x3000))
     )
 
 )