ADDED   testhttp/example-client.scm
Index: testhttp/example-client.scm
==================================================================
--- /dev/null
+++ testhttp/example-client.scm
@@ -0,0 +1,3 @@
+(use http-client)
+
+(print (with-input-from-request "http://localhost:8082/?foo=1" #f read-string))

ADDED   testhttp/example-server.scm
Index: testhttp/example-server.scm
==================================================================
--- /dev/null
+++ testhttp/example-server.scm
@@ -0,0 +1,26 @@
+(use spiffy awful)
+
+(tcp-buffer-size 2048)
+(enable-sxml #t)
+
+(define (hello-world)
+  (define-page (main-page-path)
+    (lambda ()
+      (with-request-variables (foo)
+        (conc foo " Hello, world! Goodbye Dolly")))))
+
+(define (start-server #!key (portnum 8080))
+  (handle-exceptions
+   exn
+   (begin
+     (print-error-message exn)
+     (if (< portnum 9000)
+	 (begin 
+	   (print "WARNING: failed to start on portnum: " portnum ", trying next port")
+	   (sleep 1)
+	   (start-server portnum: (+ portnum 1)))
+	 (print "ERROR: Tried and tried but could not start the server")))
+   (print "INFO: Trying to start server on portnum: " portnum)
+   (awful-start hello-world port: portnum)))
+
+(start-server)

Index: testhttp/mockupserver.scm
==================================================================
--- testhttp/mockupserver.scm
+++ testhttp/mockupserver.scm
@@ -8,10 +8,11 @@
 (define cname "server")
 (define total-db-accesses 0)
 (define start-time (current-seconds))
 
 ;; setup the server here
+(tcp-buffer-size 2048)
 (server-port 5563)
 
 (define (open-db)
   (let* ((dbpath    "mockup.db")
 	 (dbexists  (file-exists? dbpath))