diff --git a/scsh/newports.scm b/scsh/newports.scm
index 23b4028..b1aa51e 100644
--- a/scsh/newports.scm
+++ b/scsh/newports.scm
@@ -6,6 +6,11 @@
   channel
   revealed)
 
+(define-record-discloser type/fdport-data
+  (lambda (r)
+    (list 'fdport-data
+	  (fdport-data:channel r) (fdport-data:revealed r))))
+
 ; This stuff is _weak_.
 ; Vector of weak pointers mapping fd -> fdport.