[elephant-cvs] CVS elephant/src/db-bdb

[ieslick]

Update of /project/elephant/cvsroot/elephant/src/db-bdb
In directory clnet:/tmp/cvs-serv734

Modified Files:
	bdb-controller.lisp 
Log Message:
Fixed bug in failing to properly detect the version while opening 0.6.0 BDB db's in 0.6.1

--- /project/elephant/cvsroot/elephant/src/db-bdb/bdb-controller.lisp	2007/02/16 07:11:02	1.26
+++ /project/elephant/cvsroot/elephant/src/db-bdb/bdb-controller.lisp	2007/02/16 17:02:38	1.27
@@ -66,7 +66,7 @@
 			    (recover-fatal nil) (thread t) 
 			    (deadlock-detect nil))
   (let ((env (db-env-create))
-	(new-p (not (probe-file (make-pathname :defaults (second (controller-spec sc))
+	(new-p (not (probe-file (make-pathname :directory (second (controller-spec sc))
 					       :name "%ELEPHANT")))))
     (setf (controller-environment sc) env)
     (db-env-set-flags env 0 :auto-commit t)