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.44 -r1.44.2.1
--- openacs-4/packages/acs-tcl/tcl/community-core-procs.tcl	8 Mar 2004 14:07:12 -0000	1.44
+++ openacs-4/packages/acs-tcl/tcl/community-core-procs.tcl	17 Apr 2004 22:12:17 -0000	1.44.2.1
@@ -496,11 +496,14 @@
 
     @author Peter Marklund
 } {
-    # First get username and authority_id so we can flush the get_from_username_not_cached proc
-    acs_user::get -user_id $user_id -array user
-
     util_memoize_flush [list acs_user::get_from_user_id_not_cached $user_id]
-    util_memoize_flush [list acs_user::get_from_username_not_cached $user(username) $user(authority_id)]
+    
+    # get username and authority_id so we can flush the get_from_username_not_cached proc
+    if { ![catch { 
+        acs_user::get -user_id $user_id -array user
+    }] } {
+        util_memoize_flush [list acs_user::get_from_username_not_cached $user(username) $user(authority_id)]
+    }
 }
 
 ad_proc -public acs_user::get_element {