Index: /branches/ide-1.0/ccl/level-1/l1-error-signal.lisp
===================================================================
--- /branches/ide-1.0/ccl/level-1/l1-error-signal.lisp	(revision 6640)
+++ /branches/ide-1.0/ccl/level-1/l1-error-signal.lisp	(revision 6641)
@@ -116,5 +116,4 @@
 (defun %error (condition args error-pointer)
   (setq condition (condition-arg condition args 'simple-error))
-  (process-debug-condition *current-process* condition error-pointer)
   (signal condition)
   (unless *interactive-streams-initialized*