Index: openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl,v
diff -u -r1.60 -r1.61
--- openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl	22 Dec 2017 13:51:55 -0000	1.60
+++ openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl	24 Dec 2017 12:28:07 -0000	1.61
@@ -365,15 +365,19 @@
   #
   proc get_user_name {uid} {
     if {$uid ne "" && $uid != 0} {
-      if {[catch {acs_user::get -user_id $uid -array user}]} {
+      ad_try {
+        acs_user::get -user_id $uid -array user
+      } on error {errorMsg} {
         # we saw some strange cases, where after a regression,
         # a user_id was present, which was already deleted...
-        return [_ xotcl-core.nobody]
+        set result [_ xotcl-core.nobody]
+      } on ok {r} {
+        set result "$user(first_names) $user(last_name)"
       }
-      return "$user(first_names) $user(last_name)"
     } else {
-      return [_ xotcl-core.nobody]
+      set result [_ xotcl-core.nobody]
     }
+    return $result
   }
 
   #