Index: /trunk/ccl/lib/macros.lisp
===================================================================
--- /trunk/ccl/lib/macros.lisp	(revision 5135)
+++ /trunk/ccl/lib/macros.lisp	(revision 5136)
@@ -3170,5 +3170,5 @@
        (declare (fixnum ,initial-area ,area))
        (loop
-         (setq ,area (%fixnum-ref ,area ,(area-succ)))
+         (setq ,area (%fixnum-ref ,area (area-succ)))
          (when (eql ,area ,initial-area)
            (return))