diff --git a/ftpd.scm b/ftpd.scm
index 228bb6e..0ebc8ac 100644
--- a/ftpd.scm
+++ b/ftpd.scm
@@ -222,15 +222,17 @@
 		     "Only anonymous logins allowed."))))
 
 (define (handle-user-anonymous)
-  (let ((ftp-info '(user-info "gasbichl")))
+  (let ((ftp-info (user-info "ftp")))
 
-    '(set-gid (user-info:gid ftp-info))
-    '(set-uid (user-info:uid ftp-info))
+    (set-gid (user-info:gid ftp-info))
+    (set-uid (user-info:uid ftp-info))
 
     (set-session-logged-in? #t)
     (set-session-authenticated? #t)
     (set-session-anonymous? #t)
-    (set-session-root-directory "/afs/informatik.uni-tuebingen.de/data/ftp/")
+    (set-session-root-directory
+     (file-name-as-directory
+      (user-info:home-dir ftp-info)))
     (set-session-current-directory "")
 
     (register-reply! 230 "Anonymous user logged in.")))
@@ -807,7 +809,7 @@
 
 ; Version
 
-(define *ftpd-version* "$Revision: 1.10 $")
+(define *ftpd-version* "$Revision: 1.11 $")
 
 (define (copy-port->port-binary input-port output-port)
   (let ((buffer (make-string *window-size*)))