diff --git a/scsh/defrec.scm b/scsh/defrec.scm
index 992886e..4f920b1 100644
--- a/scsh/defrec.scm
+++ b/scsh/defrec.scm
@@ -59,7 +59,7 @@
 ;;;     x
 ;;;     y
 ;;;     name
-;;;     ((disclose self) (list (ship:name self))))
+;;;     ((disclose self) (list "ship" (ship:name self))))
 ;;; will cause (make-ship 10 20 "Valdez") to print as
 ;;;   #{ship "Valdez"}