Fixed a minor doc bug.

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"}