Index: openacs-4/packages/acs-tcl/tcl/community-core-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/community-core-procs.tcl,v
diff -u -r1.19 -r1.20
--- openacs-4/packages/acs-tcl/tcl/community-core-procs.tcl	28 Aug 2003 09:41:43 -0000	1.19
+++ openacs-4/packages/acs-tcl/tcl/community-core-procs.tcl	28 Aug 2003 13:23:57 -0000	1.20
@@ -102,13 +102,15 @@
         set username $email
     }
 
-    if { [ad_conn isconnected] } {
+    set creation_user ""
+    set peeraddr ""
+    
+    # This may fail, either because there's no connection, or because
+    # we're in the bootstrap-installer, at which point [ad_conn user_id] is undefined.
+    catch {
         set creation_user [ad_conn user_id]
         set peeraddr [ad_conn peeraddr]
-    } else {
-        set creation_user ""
-        set peeraddr ""
-    }
+    } 
 
     set salt [sec_random_token]
     set hashed_password [ns_sha1 "$password$salt"]