diff --git a/prospect-monolithic/scn.rkt b/prospect-monolithic/scn.rkt
index bd219d1..89794f7 100644
--- a/prospect-monolithic/scn.rkt
+++ b/prospect-monolithic/scn.rkt
@@ -26,7 +26,7 @@
 (struct scn (trie) #:transparent
   #:methods gen:prospect-pretty-printable
   [(define (prospect-pretty-print d [p (current-output-port)])
-     (pretty-print-trie (scn-trie d)))])
+     (pretty-print-trie (scn-trie d) p))])
 
 ;; Claims, Interests, Locations, and Advertisements
 (struct observe (claim) #:prefab)