From 00e59556b0615619ba1c07a712af41cdf5382c9b Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 20 Mar 2005 22:08:30 +0000
Subject: [PATCH] Fix two more typos.

---
 v7/src/runtime/berkeley-db.scm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/v7/src/runtime/berkeley-db.scm b/v7/src/runtime/berkeley-db.scm
index ed390272c..29df19446 100644
--- a/v7/src/runtime/berkeley-db.scm
+++ b/v7/src/runtime/berkeley-db.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: berkeley-db.scm,v 1.3 2005/03/20 22:01:58 cph Exp $
+$Id: berkeley-db.scm,v 1.4 2005/03/20 22:08:30 cph Exp $
 
 Copyright 2004,2005 Massachusetts Institute of Technology
 
@@ -338,7 +338,7 @@ USA.
 				      set-bdb-id-handle!)))))
 
 (define (open-bdb-env env home flags mode)
-  (pcall db4:db-open
+  (pcall db4:db-env-open
 	 (bdb-env-handle env)
 	 (->namestring (merge-pathnames home))
 	 flags
@@ -378,7 +378,7 @@ USA.
     lock))
 
 (define (bdb-env-lock-put env lock)
-  (pcall db4:db-env-lock-get (bdb-env-handle env) lock))
+  (pcall db4:db-env-lock-put (bdb-env-handle env) lock))
 
 (define (bdb-env-txn-begin env txn flags)
   (make-gc-finalized-object
-- 
2.25.1