Index: recording.lisp
===================================================================
RCS file: /project/mcclim/cvsroot/mcclim/recording.lisp,v
retrieving revision 1.143
diff -u -r1.143 recording.lisp
--- recording.lisp	16 Jun 2009 05:15:35 -0000	1.143
+++ recording.lisp	26 Jul 2009 13:20:13 -0000
@@ -324,7 +324,7 @@
 		   (,continuation (,stream ,record)
 		     ,(declare-ignorable-form* stream record)
 		     ,@body))
-	      (declare (dynamic-extent #'constructor #'continuation))
+	      (declare (dynamic-extent #',constructor #',continuation))
 	      (,',func-name ,stream #',continuation ,record-type #',constructor
 			    ,@m-i-args)))))))