Index: openacs-4/packages/acs-tcl/tcl/security-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/security-procs.tcl,v
diff -u -r1.8.2.3 -r1.8.2.4
--- openacs-4/packages/acs-tcl/tcl/security-procs.tcl	13 Mar 2002 19:06:30 -0000	1.8.2.3
+++ openacs-4/packages/acs-tcl/tcl/security-procs.tcl	13 Mar 2002 19:09:57 -0000	1.8.2.4
@@ -236,7 +236,7 @@
         # the empty string
         set prev_user_id [ad_conn user_id]
 
-        if { $prev_user_id != 0 } {
+        if { $prev_user_id != 0 && $prev_user_id != $new_user_id } {
             # this is a change in identity so we should create
             # a new session so session-level data is not shared
             set session_id [sec_allocate_session]