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.19 -r1.20
--- openacs-4/packages/acs-tcl/tcl/security-procs.tcl	15 Sep 2003 16:06:15 -0000	1.19
+++ openacs-4/packages/acs-tcl/tcl/security-procs.tcl	16 Sep 2003 13:02:09 -0000	1.20
@@ -228,6 +228,11 @@
 } {
     # In case someone wants to change the salt from now on, you can do
     # this and still support old users by changing the salt below.
+
+    if { [empty_string_p $user_id] } {
+        error "No user_id supplied"
+    } 
+    
     set salt [sec_random_token]
     set new_password [ns_sha1 "$new_password$salt"]
     db_dml password_update {}