[plt-scheme] SSL URLs and current-proxy-servers

I've been making use of the very clever recipe outlined at
  http://schemecookbook.org/Cookbook/WebFetchingHttpsUrl
for making use of https://... URLs.

Today I wanted to route the requests through a debugging proxy server (
http://www.fiddlertool.com/) to see why they were failing, but for some
reason, setting the current-proxy-servers parameter doesn't work.

When I do:

(module url-test mzscheme
  (require (lib "url.ss" "net"))

  (current-proxy-servers '(("http" "localhost" 8888)))
  (define p (get-pure-port (string->url "https://www.google.com/")))
  (display-pure-port p))

the proxy url is used.

However, when I change the above to:


(module url-test mzscheme
  (require  "ssl-url.ss")  ; From:
http://schemecookbook.org/Cookbook/WebFetchingHttpsUrl
  (current-proxy-servers '(("http" "localhost" 8888)))
  (define p (get-pure-port (string->url "https://www.google.com/")))
  (display-pure-port p))

The program doesn't seem to run through the proxy server. It does, however,
properly work.

Any suggestions for how I could tweak ssl-url.ss to leverage the proxy
server?

Thanks,
Ben

-- 
Have an idea for software? I can make it happen -
http://www.ideas2executables.com
My Blog: http://benjisimon.blogspot.com
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.racket-lang.org/users/archive/attachments/20080325/6d089ba1/attachment.html>