diff --git a/networks.rkt b/networks.rkt
index 5a2a797..6a34435 100644
--- a/networks.rkt
+++ b/networks.rkt
@@ -1082,7 +1082,9 @@
   (test-case "print-org-tbfs/state"
     (define tbfs (list (make-tbf/state '((a . 1) (b . 2)) 3)
                        (make-tbf/state '((a . -2) (b . 1)) 1)))
-    (print-org-tbfs/state tbfs)))
+    (check-equal? (print-org-tbfs/state tbfs)
+                  '((a b θ) (1 2 3) (-2 1 1)))))
+
 
 ;;; A TBN is a network form mapping TBFs to variables.
 (define tbn? (hash/c variable? tbf?))