Index: coops.scm
===================================================================
--- coops.scm	(revision 29435)
+++ coops.scm	(working copy)
@@ -610,12 +610,13 @@
 (define-syntax (ensure-generic-procedure x r c)
   (let* ((args (cadr x))
 	 (name (caddr x))
-	 (rname 
-	  (if (and (pair? name)
-		   (= (length name) 2)
-		   (c 'setter (car name))) 
-	      (cadr name)
-	      name))
+	 (rname
+          (strip-syntax
+           (if (and (pair? name)
+                    (= (length name) 2)
+                    (c 'setter (car name))) 
+               (cadr name)
+               name)))
 	 (m (##sys#current-module))
 	 (exists
 	  (and (symbol? rname)