module-path? contract broken

[vegashacker]

Although I could be insane, I *think* instaservlet no longer works in 4.1.x:

Welcome to MzScheme? v4.1.0.3 [3m], Copyright (c) 2004-2008 PLT Scheme Inc.

(require (planet untyped/instaservlet/instaservlet))
(define (servlet request) '(html (body "fooyah")))
(go! servlet)

servlet-path is '/Users/rob/Library/PLT Scheme/planet/300/4.1.0.3/cache/untyped/instaservlet.plt/1/6/./servlet-shim.ss'
(planet "dispatcher.ss" ("schematics" "instaweb.plt" 3)) broke the contract

(->*

()
(#:to-be-copied-module-specs

(listof module-path?))

(->*

()
(#:additional-specs (listof module-path?))
namespace?))

on make-make-servlet-namespace; expected <(listof module-path?)>, given: ("/Users/rob/Library/PLT Scheme/planet/300/4.1.0.3/cache/untyped/instaservlet.plt/1/6/./servlet-shim.ss")

context

/Applications/PLT Scheme v4.1.0.3/collects/scheme/private/contract-guts.ss:221:0: raise-contract-error
core
/Users/rob/Library/PLT Scheme/planet/300/4.1.0.3/cache/schematics/instaweb.plt/3/2/dispatcher.ss:55:0
core
/Applications/PLT Scheme v4.1.0.3/collects/scheme/private/misc.ss:74:7

[vegashacker]

FYI, the "servlet-path is..." in the above spew is my debugging code that I forgot to remove.

[untyped]

It looks like the module-path? predicate has recently been tightened up. I've changed the servlet-shim require path to use the (file ...) form, which accepts absolute paths.