diff --git a/networks-tests.rkt b/networks-tests.rkt
index 2d154d7..b8d8742 100644
--- a/networks-tests.rkt
+++ b/networks-tests.rkt
@@ -20,7 +20,7 @@
     (test-case "States"
       (check-equal? (make-state-booleanize '((a . 0) (b . 1)))
                     (st '((a . #f) (b . #t))))
-      (check-equal? (stb '((a . 0) (b . 1)))
+      (check-equal? (stb #hash((a . 0) (b . 1)))
                     (st '((a . #f) (b . #t))))
       (check-equal? (booleanize-state (st '((a . 0) (b . 1))))
                     (st '((a . #f) (b . #t)))))