Index: /trunk/ccl/level-1/x86-error-signal.lisp
===================================================================
--- /trunk/ccl/level-1/x86-error-signal.lisp	(revision 5074)
+++ /trunk/ccl/level-1/x86-error-signal.lisp	(revision 5075)
@@ -173,5 +173,5 @@
                          (cond ((= op2 x8664::tag-fixnum) 'fixnum)
                                ((= op2 x8664::tag-single-float) 'single-float)
-                               ((= op2 x8664::subtag-character 'character))
+                               ((= op2 x8664::subtag-character) 'character)
                                ((= op2 x8664::fulltag-cons) 'cons)
                                ((= op2 x8664::tag-misc) 'uvector)
Index: /trunk/ccl/lib/db-io.lisp
===================================================================
--- /trunk/ccl/lib/db-io.lisp	(revision 5074)
+++ /trunk/ccl/lib/db-io.lisp	(revision 5075)
@@ -394,5 +394,5 @@
         (let* ((string (make-string 512)))
           (dotimes (i 512)
-            (setf (schar string i) (%get-unsigned-byte buf i)))
+            (setf (%scharcode string i) (%get-unsigned-byte buf i)))
           (with-input-from-string (s string)
             (let* ((sig (ignore-errors (read s)))