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.45 -r1.46
--- openacs-4/packages/acs-tcl/tcl/community-core-procs.tcl	12 Mar 2004 18:48:55 -0000	1.45
+++ openacs-4/packages/acs-tcl/tcl/community-core-procs.tcl	20 Apr 2004 21:13:04 -0000	1.46
@@ -497,11 +497,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 {