Index: openacs-4/packages/acs-tcl/tcl/security-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/security-procs.tcl,v
diff -u -r1.62 -r1.63
--- openacs-4/packages/acs-tcl/tcl/security-procs.tcl	17 Oct 2010 21:06:09 -0000	1.62
+++ openacs-4/packages/acs-tcl/tcl/security-procs.tcl	8 Nov 2010 15:38:34 -0000	1.63
@@ -1166,10 +1166,7 @@
     while { $counter < $num_tokens } {
 	set random_token [sec_random_token]
 
-	db_dml insert_random_token {
-	    insert /*+ APPEND */ into secret_tokens(token_id, token, timestamp)
-	    values(sec_security_token_id_seq.nextval, :random_token, sysdate)
-	}
+	db_dml insert_random_token {}
 	incr counter
     }