[Fix update-foreign-object find :test
clinton@unknownlamer.org**20100623162746
 Ignore-this: 20ab71e0e7d1e5c00c505cd4757b2610
 * No reason for the two instances to not be `eq'
] {
hunk ./src/foreign-relation-slots.lisp 83
-				       :test (lambda (e1 e2) (and (db= e1 e2)
-							     (not (eq e1 e2)))))
+				       :test #'db=)
hunk ./src/foreign-relation-slots.lisp 87
-		    (pushnew foreign-dao (%foreign-mods-update %fm)))
-	     (error "Foreign reference ~A not found in object ~A (~A)"
-		    foreign-dao dao (slot-value dao (slot-definition-name slot)))))
+		    (pushnew foreign-dao (%foreign-mods-update %fm)))))
}