Fixed bug in directory update.

[microbotany.git] / register.scm

diff --git a/register.scm b/register.scm
index 71174c2..5aa2e91 100755 (executable)
--- a/register.scm
+++ b/register.scm
@@ -9,7 +9,7 @@
         (serve-query "User name")
         (let* ((username (symbol->string (caar query)))
                (hash (string->sha1sum (conc username
-                                            (number->string (pseudo-random-integer 10000))))))
+                                            (number->string (pseudo-random-integer 1000000))))))
           (with-output-to-file (conc "accounts/" hash)
             (lambda ()
               (write (make-garden username))))