--- presentations.lisp.~1.85.~	2008-02-01 20:02:55.000000000 +0300
+++ presentations.lisp	2009-12-16 00:53:07.015772386 +0300
@@ -71,7 +71,7 @@
 	`(flet ((,continuation ()
 		  ,@decls
 		  ,@with-body))
-	   (declare (dynamic-extent #'continuation))
+	   (declare (dynamic-extent #',continuation))
 	   (if (and (output-recording-stream-p ,stream)
 		    *allow-sensitive-inferiors*)
 	       (with-new-output-record