diff --git a/bn-tests.rkt b/bn-tests.rkt
index 6012f95..dc65f01 100644
--- a/bn-tests.rkt
+++ b/bn-tests.rkt
@@ -16,7 +16,7 @@
            [f2 (λ ([s : State])
                  (let ([x2 (hash-ref s 'x2)])
                    (not x2)))]
-           [bn (make-bn `((x1 . ,f1) (x2 . ,f2)))])
+           [bn (make-bn-funcs `((x1 . ,f1) (x2 . ,f2)))])
 
       (test-case "One-step syncronous update"
         (let* ([s (make-state '((x1 . #t) (x2 . #f)))]
diff --git a/bn.rkt b/bn.rkt
index 0aff9fa..035ac4e 100644
--- a/bn.rkt
+++ b/bn.rkt
@@ -10,7 +10,7 @@
 (require "utils.rkt")
 
 (provide Variable State UpdateFunc Network
-         update make-state make-bn update-func-form->update-func
+         update make-state make-bn-funcs update-func-form->update-func
          bn-form->bn)
 
 
@@ -50,8 +50,8 @@
   (make-hash mappings))
 
 ;;; A version of make-hash restricted to creating Boolean networks.
-(: make-bn (-> (Listof (Pairof Variable UpdateFunc)) Network))
-(define (make-bn funcs)
+(: make-bn-funcs (-> (Listof (Pairof Variable UpdateFunc)) Network))
+(define (make-bn-funcs funcs)
   (make-hash funcs))