anchor.diff:  		    (eq (slot-contents slots i) *secret-unbound-value*))
   	       ;; Initialize the slot from the initform.
   	       (setf (slot-contents slots i)
  -		     (eval (cadr (member :initform slot-description))))))))
  +		     (eval (cadr (member :initform slot-description)))))))
  +  ;; Call after methods
  +  (when (eq (standard-instance-class instance)
  +	    (find-class 'standard-class))
  +    (apply #'sd-initialize-instance-after-standard-class
  +	   instance initargs)))
   
   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   ;;;
  
positive.code: ;; 		 :datum new-class)
  ;; 	  (setf (gethash name *classes*) new-class))))
  
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;;
  
negative.code: 		      &rest
  			initargs
  		      &key
  		      &allow-other-keys)
    (let ((class-name (if (symbolp class) class (find-class-reverse class)))
  	(class-metaobject (if (symbolp class) (find-class class) class)))
      (apply #'sd-make-instance
  	   class-metaobject
  	   (find-effective-slots class-name)
  	   initargs)))
  
  ;;; REMEMBER: Redefine make-instance as a generic function. +
  
  