diff --git a/include/slibtool/slibtool.h b/include/slibtool/slibtool.h
index 6b64cd3..9f98726 100644
--- a/include/slibtool/slibtool.h
+++ b/include/slibtool/slibtool.h
@@ -310,6 +310,7 @@ slbt_api int  slbt_main                 (char **, char **,
                                          const struct slbt_fd_ctx *);
 
 slbt_api int  slbt_output_config        (const struct slbt_driver_ctx *);
+slbt_api int  slbt_output_machine       (const struct slbt_driver_ctx *);
 slbt_api int  slbt_output_features      (const struct slbt_driver_ctx *);
 slbt_api int  slbt_output_fdcwd         (const struct slbt_driver_ctx *);
 slbt_api int  slbt_output_exec          (const struct slbt_driver_ctx *, const struct slbt_exec_ctx *, const char *);
diff --git a/project/common.mk b/project/common.mk
index e756abe..4893b49 100644
--- a/project/common.mk
+++ b/project/common.mk
@@ -16,6 +16,7 @@ API_SRCS = \
 	src/output/slbt_output_exec.c \
 	src/output/slbt_output_fdcwd.c \
 	src/output/slbt_output_features.c \
+	src/output/slbt_output_machine.c \
 	src/skin/slbt_skin_default.c \
 	src/skin/slbt_skin_install.c \
 	src/skin/slbt_skin_uninstall.c \
diff --git a/src/output/slbt_output_machine.c b/src/output/slbt_output_machine.c
new file mode 100644
index 0000000..800142e
--- /dev/null
+++ b/src/output/slbt_output_machine.c
@@ -0,0 +1,24 @@
+/*******************************************************************/
+/*  slibtool: a skinny libtool implementation, written in C        */
+/*  Copyright (C) 2016--2021  Z. Gilboa                            */
+/*  Released under the Standard MIT License; see COPYING.SLIBTOOL. */
+/*******************************************************************/
+
+#include <slibtool/slibtool.h>
+#include "slibtool_driver_impl.h"
+#include "slibtool_dprintf_impl.h"
+#include "slibtool_errinfo_impl.h"
+
+int slbt_output_machine(const struct slbt_driver_ctx * dctx)
+{
+	const struct slbt_common_ctx *	cctx;
+	int				fdout;
+
+	cctx     = dctx->cctx;
+	fdout    = slbt_driver_fdout(dctx);
+
+	if (slbt_dprintf(fdout,"%s\n",cctx->host.host) < 0)
+		return SLBT_SYSTEM_ERROR(dctx,0);
+
+	return 0;
+}