Index: openacs-4/packages/acs-tcl/tcl/community-core-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/community-core-procs.tcl,v
diff -u -r1.78 -r1.79
--- openacs-4/packages/acs-tcl/tcl/community-core-procs.tcl	28 May 2018 12:48:54 -0000	1.78
+++ openacs-4/packages/acs-tcl/tcl/community-core-procs.tcl	28 May 2018 14:05:12 -0000	1.79
@@ -106,7 +106,7 @@
             return ""
         }
     }
-    set person [dict create {*}[person::get -person_id $person_id]]
+    set person [person::get -person_id $person_id]
     set person_name [dict get $person person_name]
     return $person_name
 }
@@ -154,7 +154,7 @@
         upvar $exists_var exists_p
     }
 
-    set person [dict create {*}[person::get -person_id $person_id]]
+    set person [person::get -person_id $person_id]
     set bio [dict get $person bio]
     
     set exists_p [expr {$bio ne ""}]
Index: openacs-4/packages/dotlrn/www/spam.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/spam.tcl,v
diff -u -r1.36 -r1.37
--- openacs-4/packages/dotlrn/www/spam.tcl	28 May 2018 13:29:57 -0000	1.36
+++ openacs-4/packages/dotlrn/www/spam.tcl	28 May 2018 14:05:12 -0000	1.37
@@ -93,7 +93,7 @@
 set sender_id [ad_conn user_id]
 set portal_id [dotlrn_community::get_portal_id -community_id $community_id]
 
-set user [dict create {*}[acs_user::get -user_id $sender_id]]
+set user [acs_user::get -user_id $sender_id]
 set sender_email       [dict get $user email]
 set sender_first_names [dict get $user first_names]
 set sender_last_names  [dict get $user last_name]