Index: /trunk/ccl/level-1/l1-readloop.lisp
===================================================================
--- /trunk/ccl/level-1/l1-readloop.lisp	(revision 510)
+++ /trunk/ccl/level-1/l1-readloop.lisp	(revision 511)
@@ -448,7 +448,8 @@
      nil))
   (%set-toplevel #'(lambda ()
-		     (loop
+                     (with-standard-abort-handling nil 
+                       (loop
 			 (%nanosleep *periodic-task-seconds* *periodic-task-nanoseconds*)
-			 (housekeeping))))
+			 (housekeeping)))))
   (toplevel))