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.34 -r1.35
--- openacs-4/packages/acs-tcl/tcl/community-core-procs.tcl	1 Oct 2003 15:47:09 -0000	1.34
+++ openacs-4/packages/acs-tcl/tcl/community-core-procs.tcl	2 Oct 2003 09:31:00 -0000	1.35
@@ -467,7 +467,6 @@
         array set row [util_memoize [list acs_user::get_from_user_id_not_cached $user_id] [cache_timeout]]
     } else {
         array set row [util_memoize [list acs_user::get_from_username_not_cached $username $authority_id] [cache_timeout]]
-        db_1row select_user_info_from_username {} -column_array row
         set user_id $row(user_id)
     }
 
@@ -494,6 +493,8 @@
     @author Peter Marklund
 } {
     db_1row select_user_info {} -column_array row
+
+    return [array get row]
 }
 
 ad_proc -private acs_user::cache_timeout {} {