diff --git a/networks.rkt b/networks.rkt
index 7a29777..812a15c 100644
--- a/networks.rkt
+++ b/networks.rkt
@@ -1597,4 +1597,5 @@
   (test-case "print-org-tbn"
     (define tbn (make-tbn `((a . ,(make-sbf/state '((b . 1))))
                             (b . ,(make-tbf/state '((a . -1)) -1)))))
-    (print-org-tbn tbn)))
+    (check-equal? (print-org-tbn tbn)
+                  '((- a b θ) (a 0 1 0) (b -1 0 -1)))))