diff --git a/Include/moduleobject.h b/Include/moduleobject.h
index 442ca11302e..99d3d52f407 100644
--- a/Include/moduleobject.h
+++ b/Include/moduleobject.h
@@ -7,3 +7,4 @@ extern typeobject Moduletype;
 extern object *newmoduleobject PROTO((char *));
 extern object *getmoduledict PROTO((object *));
 extern int setmoduledict PROTO((object *, object *));
+extern char *getmodulename PROTO((object *));
diff --git a/Objects/moduleobject.c b/Objects/moduleobject.c
index 09bbae94780..22a793f417c 100644
--- a/Objects/moduleobject.c
+++ b/Objects/moduleobject.c
@@ -62,6 +62,17 @@ setmoduledict(m, v)
 	return 0;
 }
 
+char *
+getmodulename(m)
+	object *m;
+{
+	if (!is_moduleobject(m)) {
+		err_badarg();
+		return NULL;
+	}
+	return getstringvalue(((moduleobject *)m) -> md_name);
+}
+
 /* Methods */
 
 static void