Index: /trunk/ccl/level-0/l0-misc.lisp
===================================================================
--- /trunk/ccl/level-0/l0-misc.lisp	(revision 626)
+++ /trunk/ccl/level-0/l0-misc.lisp	(revision 627)
@@ -142,6 +142,8 @@
   (let* ((res nil))
     (without-interrupts
-     (do-unexhausted-lisp-threads (thread)
-       (push (cons thread (multiple-value-list (%thread-stack-space thread))) res)))
+     (dolist (p (all-processes))
+       (let* ((thread (process-thread p)))
+         (when thread
+           (push (cons thread (multiple-value-list (%thread-stack-space thread))) res)))))
     res))