diff --git a/src/logic/slbt_exec_compile.c b/src/logic/slbt_exec_compile.c
index fc95d16..b58175a 100644
--- a/src/logic/slbt_exec_compile.c
+++ b/src/logic/slbt_exec_compile.c
@@ -137,9 +137,13 @@ int  slbt_exec_compile(
 
 	ret = fprintf(fout,
 		"# libtool compatible object wrapper\n"
-		"# Generated by slibtool (pre-alpha)\n\n"
+		"# Generated by %s (slibtool pre-alpha)\n\n"
+
 		"pic_object='%s'\n"
 		"non_pic_object='%s'\n",
+
+		dctx->program,
+
 		(dctx->cctx->drvflags & SLBT_DRIVER_SHARED)
 			? ectx->lobjname
 			: "none",