Index: /trunk/ccl/lisp-kernel/x86-exceptions.c
===================================================================
--- /trunk/ccl/lisp-kernel/x86-exceptions.c	(revision 5400)
+++ /trunk/ccl/lisp-kernel/x86-exceptions.c	(revision 5401)
@@ -244,5 +244,5 @@
   bytes_needed = disp+allocptr_tag;
 
-  update_bytes_allocated(tcr,((BytePtr)(cur_allocptr-disp)));
+  update_bytes_allocated(tcr,((BytePtr)(cur_allocptr+disp)));
   if (allocate_object(xp, bytes_needed, disp, tcr)) {
     return true;