Index: /trunk/ccl/level-1/l1-processes.lisp
===================================================================
--- /trunk/ccl/level-1/l1-processes.lisp	(revision 6941)
+++ /trunk/ccl/level-1/l1-processes.lisp	(revision 6942)
@@ -498,4 +498,8 @@
        function args))))
 
+(defmethod process-debug-condition ((p process) condition frame-pointer)
+  (declare (ignore condition frame-pointer)))
+
+