racket/collects/help/private/path.ss

(module path mzscheme
  (require (lib "contract.ss"))
  (provide/contract
   [servlet-path? (path? . -> . boolean?)])

  (define (servlet-path? path)
    (if (regexp-match #rx#"^/servlets/" 
                      (path->bytes path))
        #t
        #f)))