Index: openacs-4/packages/cms/www/register.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/cms/www/Attic/register.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/cms/www/register.tcl	27 May 2001 00:22:34 -0000	1.4
+++ openacs-4/packages/cms/www/register.tcl	27 May 2001 04:39:19 -0000	1.5
@@ -50,13 +50,13 @@
                          "" "" "" "" "" $user_id]
 
         db_dml update_users "
-      update users
+        update users
         set screen_name = :screen_name
         where user_id = :user_id"
 
         # if there are no users with the 'cm_admin' privilege 
         #   (the CMS has never been used), then this user will be the admin
-        set cms_admin_exists [User::cms_admin_exists $db]
+        set cms_admin_exists [User::cms_admin_exists]
         if { $cms_admin_exists == 0 } {
             set is_admin t
         } else {
@@ -98,7 +98,7 @@
 	"
         }
 
-        User::login $db $user_id
+        User::login $user_id
     }
 
     template::forward index