Index: /trunk/ccl/level-1/l1-readloop.lisp
===================================================================
--- /trunk/ccl/level-1/l1-readloop.lisp	(revision 490)
+++ /trunk/ccl/level-1/l1-readloop.lisp	(revision 491)
@@ -443,6 +443,4 @@
 				 *initial-process*)))
      #'(lambda ()
-	 (setq *interactive-abort-process*
-	       *current-process*)
 	 (startup-ccl (and *load-lisp-init-file* init-file))
 	 (listener-function)