Index: openacs-4/packages/acs-subsite/www/shared/portrait.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/shared/portrait.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/acs-subsite/www/shared/portrait.tcl	6 Sep 2002 21:50:11 -0000	1.3
+++ openacs-4/packages/acs-subsite/www/shared/portrait.tcl	18 Nov 2002 18:01:14 -0000	1.4
@@ -43,6 +43,6 @@
 
 set context [list [list [acs_community_member_url -user_id $user_id] "One Member"] "Portrait"]
 set export_vars [export_url_vars user_id]
-set publish_date [util_AnsiDatetoPrettyDate $publish_date]
+set publish_date [lc_time_fmt $publish_date "%q"]
 
 ad_return_template