Index: rmtmod.scm ================================================================== --- rmtmod.scm +++ rmtmod.scm @@ -269,12 +269,12 @@ (dbname (db:run-id->dbname rid))) (rmt:general-open-connection conns apath dbname) (rmt:send-receive-real conns apath dbname cmd params))) (define (rmt:send-receive-real host port data) - (let-values ((i o) (tcp-connect "localhost" 4242)) - (write-line "Good Bye!" o) + (let-values ((i o) (tcp-connect host port)) + (write-line data o) (print (read-line i)))) ;; db is at apath/.db/dbname, rid is an intermediary solution and will be removed ;; sometime in the future ;;