Index: /trunk/ccl/level-1/l1-readloop.lisp
===================================================================
--- /trunk/ccl/level-1/l1-readloop.lisp	(revision 334)
+++ /trunk/ccl/level-1/l1-readloop.lisp	(revision 335)
@@ -466,5 +466,5 @@
             (cond ((null fn) (throw tag condition))
                   ((fixnump fn) (throw tag (cons fn condition)))
-                  (t (return (funcall fn condition))))))))))
+                  (t (funcall fn condition)))))))))
 
 (defvar *error-print-circle* nil)   ; reset to T when we actually can print-circle