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.17 -r1.18
--- openacs-4/packages/acs-tcl/tcl/community-core-procs.tcl	25 Aug 2003 13:46:41 -0000	1.17
+++ openacs-4/packages/acs-tcl/tcl/community-core-procs.tcl	28 Aug 2003 09:30:19 -0000	1.18
@@ -100,7 +100,14 @@
         set username $email
     }
 
-    set peeraddr [ad_conn peeraddr]
+    if { [ad_conn isconnected] } {
+        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"]