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.54.2.1.4.2 -r1.54.2.1.4.3
--- openacs-4/packages/dotlrn/tcl/dotlrn-security-procs.tcl	21 Jul 2004 21:31:01 -0000	1.54.2.1.4.2
+++ openacs-4/packages/dotlrn/tcl/dotlrn-security-procs.tcl	23 Jul 2004 13:53:41 -0000	1.54.2.1.4.3
@@ -107,14 +107,14 @@
 
         set template_id [dotlrn::get_portal_id_from_type -type user]
 
-	set portal_id [portal::create \          
-                 -template_id $template_id \     
-                 -name "[_ dotlrn.lt_Your_dotLRN_Workspace]" \   
-                 $user_id] 
-
         db_transaction {
             set_can_browse -user_id $user_id -can_browse\=$can_browse_p
 
+	    set portal_id [portal::create \          
+	         -template_id $template_id \     
+                 -name "[_ dotlrn.lt_Your_dotLRN_Workspace]" \   
+                 $user_id] 
+
 	    ns_set put $extra_vars portal_id $portal_id
 
             # Add the relation (no need to feed in anything for object_id_one,