Index: /trunk/ccl/compiler/X86/x862.lisp
===================================================================
--- /trunk/ccl/compiler/X86/x862.lisp	(revision 5177)
+++ /trunk/ccl/compiler/X86/x862.lisp	(revision 5178)
@@ -5838,6 +5838,5 @@
       (ensuring-node-target (target vreg)
         (with-imm-target () (dest :u8)
-          (! u32->char target (let* ((*x862-reckless* t))
-                               (x862-one-untargeted-reg-form seg c dest)))))
+          (! u32->char target (x862-one-untargeted-reg-form seg c dest))))
       (^))))
 
@@ -5889,7 +5888,5 @@
   (let* ((reg (x862-one-untargeted-reg-form seg c x8664::arg_z)))
     ;; Typecheck even if result unused.
-    (case (arch::target-char-code-limit (backend-target-arch *target-backend*))
-      (256 (! require-u8 reg))
-      (t (! require-char-code reg)))
+    (! require-char-code reg)
     (if vreg
       (ensuring-node-target (target vreg)