diff --git a/src/Makefile b/src/Makefile
index f5c4d86..c93b0a0 100644
--- a/src/Makefile
+++ b/src/Makefile
@@ -55,7 +55,8 @@ HACKERBASE-OBJS=hackerbase.o testing.o listing.o cal-month.o		\
 	 table-processor.o table-border.o table-style.o sgr-state.o	\
 	 util-utf8.o sgr-cell.o template-list-expander.o		\
 	 box-drawing.o util-list.o export-web-static.o util-dir.o	\
-	 dokuwiki.o racket-kwargs.o duck.o util-bst.o util-bst-dict.o
+	 dokuwiki.o racket-kwargs.o duck.o util-bst.o			\
+	 util-bst-bdict.o
 
 GENDOC-SOURCES=gendoc.scm duck-extract.import.scm			\
 	util-time.import.scm util-csv.import.scm util-git.import.scm	\
@@ -156,7 +157,7 @@ MBASE-SOURCES=mbase.scm testing.import.scm util-dict-list.import.scm	\
 	 cal-period.import.scm cal-month.import.scm			\
 	 configuration.import.scm progress.import.scm			\
 	 mbase-dir.import.scm util-tag.import.scm			\
-	 racket-kwargs.import.scm util-bst-dict.import.scm		\
+	 racket-kwargs.import.scm util-bst-bdict.import.scm		\
 	 util-list.import.scm
 
 mbase.o: mbase.import.scm
@@ -519,7 +520,7 @@ UTIL-BST-SOURCES=util-bst.scm util-tag.import.scm testing.import.scm	\
 util-bst.o: util-bst.import.scm
 util-bst.import.scm: $(UTIL-BST-SOURCES)
 
-UTIL-BST-DICT-SOURCES=util-bst-dict.scm util-bst.import.scm
+UTIL-BST-BDICT-SOURCES=util-bst-bdict.scm util-bst.import.scm
 
-util-bst-dict.o: util-bst-dict.import.scm
-util-bst-dict.import.scm: $(UTIL-BST-DICT-SOURCES)
+util-bst-bdict.o: util-bst-bdict.import.scm
+util-bst-bdict.import.scm: $(UTIL-BST-BDICT-SOURCES)
diff --git a/src/mbase.scm b/src/mbase.scm
index cddde64..b34751c 100644
--- a/src/mbase.scm
+++ b/src/mbase.scm
@@ -82,7 +82,7 @@
 	 mbase-dir
 	 util-tag
 	 racket-kwargs
-	 util-bst-dict)
+	 util-bst-bdict)
 
  ;; Constant unique tag
  (define TAG-MBASE (make-tag mbase))
diff --git a/src/util-bst-dict.scm b/src/util-bst-bdict.scm
similarity index 92%
rename from src/util-bst-dict.scm
rename to src/util-bst-bdict.scm
index 33a7241..4ea82c2 100644
--- a/src/util-bst-dict.scm
+++ b/src/util-bst-bdict.scm
@@ -1,10 +1,10 @@
 
-(declare (unit util-bst-dict))
+(declare (unit util-bst-bdict))
 
 (import duck)
 
 (module*
- util-bst-dict
+ util-bst-bdict
  #:doc ("...")
  (
   list->bdict