Index: http-transportmod.scm
==================================================================
--- http-transportmod.scm
+++ http-transportmod.scm
@@ -176,14 +176,14 @@
 				  ((equal? (uri-path (request-uri (current-request))) 
 					   '(/ ""))
 				   (send-response body: ((http-get-function 'http-transport:main-page))))
 				  ((equal? (uri-path (request-uri (current-request))) 
 					   '(/ "json_api"))
-				   (send-response body: (http-get-function '(http-transport:main-page))))
+				   (send-response body: ((http-get-function 'http-transport:main-page))))
 				  ((equal? (uri-path (request-uri (current-request))) 
 					   '(/ "runs"))
-				   (send-response body: (http-get-function '(http-transport:main-page))))
+				   (send-response body: ((http-get-function 'http-transport:main-page))))
 				  ((equal? (uri-path (request-uri (current-request))) 
 					   '(/ any))
 				   (send-response body: "hey there!\n"
 						  headers: '((content-type text/plain))))
 				  ((equal? (uri-path (request-uri (current-request))) 
@@ -190,19 +190,19 @@
 					   '(/ "hey"))
 				   (send-response body: "hey there!\n" 
 						  headers: '((content-type text/plain))))
                                   ((equal? (uri-path (request-uri (current-request))) 
 					   '(/ "jquery3.1.0.js"))
-				   (send-response body: (http-get-function '(http-transport:show-jquery)) 
+				   (send-response body: ((http-get-function 'http-transport:show-jquery))
 						  headers: '((content-type application/javascript))))
                                   ((equal? (uri-path (request-uri (current-request))) 
 					   '(/ "test_log"))
-				   (send-response body: (http-get-function '(http-transport:html-test-log $) )
+				   (send-response body: ((http-get-function 'http-transport:html-test-log) $) 
 						  headers: '((content-type text/HTML))))    
                                   ((equal? (uri-path (request-uri (current-request))) 
 					   '(/ "dashboard"))
-				   (send-response body: (http-get-function '(http-transport:html-dboard $) )
+				   (send-response body: ((http-get-function 'http-transport:html-dboard) $)
 						  headers: '((content-type text/HTML)))) 
 				  (else (continue))))))))
     (handle-exceptions
 	exn
       (debug:print 0 *default-log-port* "Failed to create file " start-file ", exn=" exn)

Index: megatest.scm
==================================================================
--- megatest.scm
+++ megatest.scm
@@ -54,10 +54,11 @@
 (declare (uses configfmod.import))
 (declare (uses bigmod.import))
 (declare (uses dbmod.import))
 (declare (uses rmtmod.import))
 (declare (uses servermod.import))
+(declare (uses http-transportmod))
 
 ;; (include "call-with-environment-variables/call-with-environment-variables.scm")
 
 (module megatest-main
 	*
@@ -526,10 +527,18 @@
      Version " megatest-version ", built from " megatest-fossil-hash ))
      
 (define (main)
   (make-and-init-bigdata)
 
+  
+  ;; set up the functions in http transport
+  (hash-table-set! *http-functions* 'api:process-request          api:process-request)
+  (hash-table-set! *http-functions* 'http-transport:main-page     http-transport:main-page)
+  (hash-table-set! *http-functions* 'http-transport:show-jquery   http-transport:show-jquery)
+  (hash-table-set! *http-functions* 'http-transport:html-test-log http-transport:html-test-log)
+  (hash-table-set! *http-functions* 'http-transport:html-dboard   http-transport:html-dboard)
+  
 ;; load the ~/.megatestrc file, put (use trace)(trace-call-sites #t)(trace function-you-want-to-trace) in this file
 ;;
 (let ((debugcontrolf (conc (get-environment-variable "HOME") "/.megatestrc")))
   (if (common:file-exists? debugcontrolf)
       (load debugcontrolf)))