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.5 -r1.6
--- openacs-4/packages/cms/www/register.tcl	27 May 2001 04:39:19 -0000	1.5
+++ openacs-4/packages/cms/www/register.tcl	16 Aug 2002 00:20:17 -0000	1.6
@@ -23,9 +23,7 @@
 
 if { [form is_request register_user] } {
     
-    template::query get_user_id user_id onevalue "
-      select acs_object_id_seq.nextval from dual
-    "
+    set user_id [db_string get_user_id ""]
 
     set cms_admin_exists [User::cms_admin_exists]