r4924: *** empty log message ***

[hyperobject.git] / mop.lisp

diff --git a/mop.lisp b/mop.lisp
index 204412dc39d25f59a844b936b6618320947529c3..b24c4b477dac3b1852e894fc3f11c10ffd9d2962 100644 (file)
--- a/mop.lisp
+++ b/mop.lisp
@@ -11,7 +11,7 @@
 ;;;; in Text, HTML, and XML formats. This includes hyperlinking
 ;;;; capability and sub-objects.
 ;;;;
-;;;; $Id: mop.lisp,v 1.70 2003/05/14 05:29:48 kevin Exp $
+;;;; $Id: mop.lisp,v 1.71 2003/05/14 05:36:22 kevin Exp $
 ;;;;
 ;;;; This file is Copyright (c) 2000-2003 by Kevin M. Rosenberg
 ;;;; *************************************************************************
@@ -419,7 +419,7 @@
                                   (user-name cl))
                    2)))
 
-  (dolist (name '(description))
+  (dolist (name '(user-name description))
     (awhen (slot-value cl name)
           (setf (slot-value cl name)
                 (etypecase (slot-value cl name)