diff --git a/ftpd.scm b/ftpd.scm
index 9e8f969..ecf0870 100644
--- a/ftpd.scm
+++ b/ftpd.scm
@@ -100,7 +100,7 @@
 (define (set-ftp-socket-options! socket)
   ;; If the client closes the connection, we won't lose when we try to
   ;; close the socket by trying to flush the output buffer.
-  (set-port-buffering (socket:outport socket) 'bufpol/none)
+  (set-port-buffering (socket:outport socket) bufpol/none)
 
   (set-socket-option socket level/socket socket/oob-inline #t))
 
@@ -220,7 +220,7 @@
     (set-session-logged-in? #t)
     (set-session-authenticated? #t)
     (set-session-anonymous? #t)
-    (set-session-root-directory (file-name-as-directory (user-info:home-dir ftp-info)))
+    (set-session-root-directory "/afs/informatik.uni-tuebingen.de/data/ftp/")
     (set-session-current-directory "")
 
     (register-reply! 230 "Anonymous user logged in.")))
@@ -792,7 +792,7 @@
 
 ; Version
 
-(define *ftpd-version* "$Revision: 1.6 $")
+(define *ftpd-version* "$Revision: 1.7 $")
 
 (define (copy-port->port-binary input-port output-port)
   (let ((buffer (make-string *window-size*)))