@@ -47,11 +47,11 @@ (prefix mtargs args:) mtmod ) (include "common_records.scm") -(include "db_records.scm") +;; (include "db_records.scm") (define (server:make-server-url hostport) (if (not hostport) #f (conc "http://" (car hostport) ":" (cadr hostport))))