Index: openacs-4/packages/dotlrn/tcl/dotlrn-security-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/dotlrn-security-procs.tcl,v
diff -u -r1.21 -r1.22
--- openacs-4/packages/dotlrn/tcl/dotlrn-security-procs.tcl	23 Jan 2002 08:00:25 -0000	1.21
+++ openacs-4/packages/dotlrn/tcl/dotlrn-security-procs.tcl	25 Jan 2002 00:22:50 -0000	1.22
@@ -91,11 +91,8 @@
                             -layout_name [lindex $layout_name_list $i]
                 }
                 
-                # manually switch back to the first page 
+                # manually switch back to the first page
                 set page_id [portal::get_page_id -portal_id $portal_id -sort_key 0]
-                
-                portal::set_current_page -portal_id $portal_id \
-                        -page_id $page_id
 
                 # aks test adding applets on new pages
                 # make a test page to the wsp