diff --git a/networks.rkt b/networks.rkt
index 7f8850f..344fc53 100644
--- a/networks.rkt
+++ b/networks.rkt
@@ -192,7 +192,7 @@
                         (and x1 (not x2)))))
     (define f2 (λ (s) (let ([x2 (hash-ref s 'x2)])
                         (not x2))))
-    (define bn (make-network-from-functions `((x1 . ,f1) (x2 . ,f2))))
+    (define bn (hash 'x1 f1 'x2 f2))
     (define s1 (make-state '((x1 . #t) (x2 . #f))))
     (define new-s1 (update bn s1 '(x2 x1)))
     (define s2 (make-state '((x1 . #f) (x2 . #f))))