New function gettupleslice(v, i, j).
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;