Index: /trunk/ccl/library/loop.lisp
===================================================================
--- /trunk/ccl/library/loop.lisp	(revision 339)
+++ /trunk/ccl/library/loop.lisp	(revision 340)
@@ -1376,5 +1376,5 @@
 
 (defun loop-do-return ()
-  (loop-pseudo-body (loop-construct-return (loop-get-form))))
+  (loop-emit-body (loop-construct-return (loop-get-form))))