diff --git a/scheme/httpd/surflets/surflet-handler.scm b/scheme/httpd/surflets/surflet-handler.scm
index 7ae5201..21db862 100644
--- a/scheme/httpd/surflets/surflet-handler.scm
+++ b/scheme/httpd/surflets/surflet-handler.scm
@@ -49,6 +49,8 @@
   ;; instance lifetime is in seconds
   (instance-lifetime options:instance-lifetime set-options:instance-lifetime))
 
+;; Servlet-prefix is unused now. Formerly, it contained the virtual
+;; path prefix for the handler.
 (define (make-default-options servlet-path servlet-prefix)
   (make-options servlet-path servlet-prefix #t 600))
 
@@ -79,10 +81,8 @@
     (lambda ()
       (random-integer 1073741824))))	; I hope, 1+ billion is enough....
 
-;; Servlet-prefix gives virtual prefixed path to servlets. Currently,
-;; it is ignored.
-(define (servlet-handler servlet-path . servlet-prefix)
-  (set-thread-fluid! *options* (make-default-options servlet-path servlet-prefix))
+(define (servlet-handler servlet-path)
+  (set-thread-fluid! *options* (make-default-options servlet-path #f))
   (lambda (path req)
     (if (pair? path)			; need at least one element
 	(let ((request-method (request-method req))