diff --git a/clx/gcontext.lisp b/clx/gcontext.lisp
index ad718d121741ec191849da810793edfae0c5ee6b..4d3b30b1d3fc17f45d119c6b518540ef12851fe6 100644
--- a/clx/gcontext.lisp
+++ b/clx/gcontext.lisp
@@ -968,10 +968,7 @@
   ;;	    (,set-function dst-gc value)
   ;;	  (error "Can't copy unknown GContext component ~a" ',name)))
   (declare (type symbol name)
-	   (type t default)
-	   (type (function (gcontext t) t) set-function) ;; required
-	   (type (or null (function (gcontext gcontext t) t))
-		 copy-function))
+	   (type t default))
   (let* ((gc-name (intern (concatenate 'string
 				       (string 'gcontext-)
 				       (string name)))) ;; in current package