Index: /trunk/ccl/level-1/l1-error-system.lisp
===================================================================
--- /trunk/ccl/level-1/l1-error-system.lisp	(revision 5093)
+++ /trunk/ccl/level-1/l1-error-system.lisp	(revision 5094)
@@ -981,4 +981,5 @@
     (simple-array double-float (* *))
     (simple-array single-float (* *))
+    (mod #x110000)
 ))