X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=mop.lisp;h=b24c4b477dac3b1852e894fc3f11c10ffd9d2962;hb=ed38cba0d2ed61535a9911969bfd000d5ae1ffb9;hp=204412dc39d25f59a844b936b6618320947529c3;hpb=04f829aab1e5caaefe60391f756e7a5db2d1282b;p=hyperobject.git

diff --git a/mop.lisp b/mop.lisp
index 204412d..b24c4b4 100644
--- 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)