Index: /trunk/ccl/level-1/l1-lisp-threads.lisp
===================================================================
--- /trunk/ccl/level-1/l1-lisp-threads.lisp	(revision 5977)
+++ /trunk/ccl/level-1/l1-lisp-threads.lisp	(revision 5978)
@@ -806,5 +806,5 @@
           (incf phys-cell)
           (when (< (decf arg-vsp) vsp)
-            (error "n out of range")))))))
+            (error "~d out of range" n)))))))