diff --git a/Include/tupleobject.h b/Include/tupleobject.h
index abdf1ea..5a84ef2 100644
--- a/Include/tupleobject.h
+++ b/Include/tupleobject.h
@@ -51,6 +51,7 @@
 extern int gettuplesize PROTO((object *));
 extern object *gettupleitem PROTO((object *, int));
 extern int settupleitem PROTO((object *, int, object *));
+extern object *gettupleslice PROTO((object *, int, int));
 
 /* Macro, trading safety for speed */
 #define GETTUPLEITEM(op, i) ((op)->ob_item[i])
diff --git a/Objects/tupleobject.c b/Objects/tupleobject.c
index bce7fdf..ab2cf18 100644
--- a/Objects/tupleobject.c
+++ b/Objects/tupleobject.c
@@ -228,6 +228,18 @@
 	return (object *)np;
 }
 
+object *
+gettupleslice(op, i, j)
+	object *op;
+	int i, j;
+{
+	if (op == NULL || !is_tupleobject(op)) {
+		err_badcall();
+		return NULL;
+	}
+	return tupleslice((tupleobject *)op, i, j);
+}
+
 static object *
 tupleconcat(a, bb)
 	register tupleobject *a;