[elephant-cvs] CVS elephant/src/elephant

[ieslick]

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)