bug related to servlet-env mod

svn: r11261

collects/htdp/servlet.ss

@@ -1,10 +1,12 @@
 ; Author: Paul Graunke
 #cs(module servlet mzscheme
      (require web-server/servlet-env
+              web-server/servlet
               htdp/error
               xml
               mzlib/etc)
      (provide (all-from web-server/servlet-env)
+              (all-from web-server/servlet)
               (rename wrapped-build-suspender build-suspender))
      
      ; build-suspender : (listof html) (listof html) [(listof (cons sym str))] [(listof (cons sym str))] -> str -> response

collects/htdp/servlet2.ss

@@ -4,6 +4,7 @@
         buttons: multiple points of returns: continuation functions 
   |#
 (require (prefix-in servlet: web-server/servlet-env)
+         (prefix-in servlet: web-server/servlet)
          htdp/error
          scheme/tcp
          scheme/bool
@@ -529,7 +530,8 @@
            [th 
             (thread (lambda ()
                       (let ([port (get-next-port)])
-                        (servlet:on-web port (server-loop)))))]
+                        (servlet:serve/servlet (lambda (start) (server-loop))
+                                               #:port port))))]
            [a-server (make-server th req-ch res-ch)])
       (current-server a-server))))