From d15cfee879e8baf6710b89303f958e5c88a76dbe Mon Sep 17 00:00:00 2001
From: shivers <shivers>
Date: Thu, 19 Sep 1996 22:20:37 +0000
Subject: [PATCH] Fixed a minor doc bug.

---
 scsh/defrec.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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