[elephant-cvs] CVS elephant/src/elephant

Update of /project/elephant/cvsroot/elephant/src/elephant In directory clnet:/tmp/cvs-serv19929

Modified Files: migrate.lisp Log Message: Fix for add-to-root, etc api change

--- /project/elephant/cvsroot/elephant/src/elephant/migrate.lisp 2007/03/11 05:45:14 1.12 +++ /project/elephant/cvsroot/elephant/src/elephant/migrate.lisp 2007/03/24 10:49:59 1.13 @@ -125,7 +125,7 @@ (let ((newval (migrate dst value))) (unless (eq key *elephant-properties-label*) (ensure-transaction (:store-controller dst :txn-nosync t) - (add-to-root key newval :store-controller dst))))) + (add-to-root key newval :sc dst))))) (controller-root src)) dst)