diff --git a/networks.rkt b/networks.rkt
index 4a698ba..cf2bd50 100644
--- a/networks.rkt
+++ b/networks.rkt
@@ -676,7 +676,7 @@
 ;;; Given a network, applies a function for building a mode to its
 ;;; variables and returns the corresponding network dynamics.
 (define (make-dynamics-from-func network mode-func)
-  (dynamics network (mode-func (hash-keys network))))
+  (dynamics network (mode-func (hash-keys (network-functions network)))))
 
 ;;; Creates the asynchronous dynamics for a given network.
 (define (make-asyn-dynamics network)
@@ -688,7 +688,7 @@
 
 (module+ test
   (test-case "make-asyn-dynamics, make-syn-dynamics"
-    (define n (network-form->network #hash((a . (not a)) (b . b))))
+    (define n (forms->boolean-network #hash((a . (not a)) (b . b))))
     (define asyn (make-asyn-dynamics n))
     (define syn (make-syn-dynamics n))
     (check-equal? (dynamics-network asyn) n)
@@ -748,7 +748,7 @@
 
 (module+ test
   (test-case "Dynamics of networks"
-    (define n (network-form->network #hash((a . (not a)) (b . b))))
+    (define n (forms->boolean-network #hash((a . (not a)) (b . b))))
     (define asyn (make-asyn-dynamics n))
     (define syn (make-syn-dynamics n))
     (define s (make-state '((a . #t) (b . #f))))