Index: /trunk/source/objc-bridge/objc-clos.lisp
===================================================================
--- /trunk/source/objc-bridge/objc-clos.lisp	(revision 8200)
+++ /trunk/source/objc-bridge/objc-clos.lisp	(revision 8201)
@@ -776,5 +776,6 @@
 	    (declare (ignore ignore))
 	    (if foundp
-		(if (funcall typepred newval)
+		(if (or (null typepred)
+                        (funcall typepred newval))
 		    (setf (slot-value instance sname) newval)
 		  (report-bad-arg newval slot-type))
@@ -787,5 +788,6 @@
 			   initfunction)
 		  (let ((newval (funcall initfunction)))
-		    (unless (funcall typepred newval)
+		    (unless (or (null typepred)
+                                (funcall typepred newval))
 		      (report-bad-arg newval slot-type))
 		    (setf (%standard-instance-instance-location-access