diff --git a/networks.rkt b/networks.rkt
index ae0f158..9b76583 100644
--- a/networks.rkt
+++ b/networks.rkt
@@ -1410,8 +1410,8 @@
 
 ;;; Constructs a network from a network form defining a TBN.
 (define (tbn->network tbn)
-  (for/hash ([(var tbf) (in-hash tbn)])
-    (values var ((curry apply-tbf/state) tbf))))
+  (make-boolean-network (for/hash ([(var tbf) (in-hash tbn)])
+                          (values var ((curry apply-tbf/state) tbf)))))
 
 (module+ test
   (test-case "tbn->network"