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.56 -r1.57
--- openacs-4/packages/dotlrn/tcl/dotlrn-security-procs.tcl	12 Jul 2004 14:49:56 -0000	1.56
+++ openacs-4/packages/dotlrn/tcl/dotlrn-security-procs.tcl	24 Jul 2004 08:34:10 -0000	1.57
@@ -105,16 +105,19 @@
         ns_set put $extra_vars user_id $user_id
         ns_set put $extra_vars id $id
 
-        set portal_id [dotlrn::get_portal_id_from_type -type user]
+        set template_id [dotlrn::get_portal_id_from_type -type user]
 
         db_transaction {
             set_can_browse -user_id $user_id -can_browse\=$can_browse_p
 
-	    # The user will start with a the default portal.
-	    # A new one will be created when they go to configure
+	    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
 
+	    ns_set put $extra_vars portal_id $portal_id
+
             # Add the relation (no need to feed in anything for object_id_one,
             # or two for that matter).
             set rel_id [relation_add \
@@ -124,7 +127,7 @@
                 "" \
                 $user_id \
             ]
-
+	    
             dotlrn_applet::dispatch -op AddUser -list_args [list $user_id]
 
             # if the user is a member of communities (from some previous