Index: /branches/ide-1.0/ccl/level-1/l1-error-signal.lisp
===================================================================
--- /branches/ide-1.0/ccl/level-1/l1-error-signal.lisp	(revision 6590)
+++ /branches/ide-1.0/ccl/level-1/l1-error-signal.lisp	(revision 6591)
@@ -116,4 +116,5 @@
 (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*