Index: Drei/lisp-syntax.lisp
===================================================================
RCS file: /project/mcclim/cvsroot/mcclim/Drei/lisp-syntax.lisp,v
retrieving revision 1.75
diff -u -r1.75 lisp-syntax.lisp
--- Drei/lisp-syntax.lisp	15 Feb 2008 13:16:17 -0000	1.75
+++ Drei/lisp-syntax.lisp	2 Mar 2008 15:07:54 -0000
@@ -2903,7 +2903,7 @@
       (list +quote-marker+ (apply #'form-to-object syntax (second (children form)) args))
       `',(apply #'form-to-object syntax (second (children form)) args)))
 
-(defmethod form-to-object (syntax (form incomplete-quote-form) &rest args)
+(defmethod form-to-object ((syntax lisp-syntax) (form incomplete-quote-form) &rest args)
   (declare (ignore args))
   ;; Utterly arbitrary, but reasonable in my opinion.
   '(quote))