--- a/src/relpipe-tr-guile.cpp	Sat Jan 19 16:01:08 2019 +0100
+++ b/src/relpipe-tr-guile.cpp	Sun Jan 20 01:02:40 2019 +0100
@@ -38,7 +38,7 @@
 using namespace relpipe::reader;
 using namespace relpipe::tr::guile;
 
-int main(int argc, char**argv) {
+static void relpipeMain(void *closure, int argc, char **argv) {
 	setlocale(LC_ALL, "");
 	CLI::untieStdIO();
 	CLI cli(argc, argv);
@@ -63,5 +63,10 @@
 		resultCode = CLI::EXIT_CODE_DATA_ERROR;
 	}
 
-	return resultCode;
+	exit(resultCode);
 }
+
+int main(int argc, char**argv) {
+	scm_boot_guile(argc, argv, relpipeMain, nullptr);
+	return 999; // never reached – see exit(resultCode) above
+}