--- TokyoDystopia.xs	2008/08/17 22:37:16	6
+++ TokyoDystopia.xs	2008/08/17 22:54:54	8
@@ -14,7 +14,7 @@
 errmsg(ecode)
 	int	ecode
 CODE:
-	RETVAL = tchdberrmsg(ecode);
+	RETVAL = tcidberrmsg(ecode);
 OUTPUT:
 	RETVAL
 
@@ -58,3 +58,13 @@
 OUTPUT:
 	RETVAL
 
+
+int
+setcache(db, icsiz, lcnum)
+	void *	db
+	int	icsiz
+	int	lcnum
+CODE:
+	RETVAL = tcidbsetcache(db, icsiz, lcnum);
+OUTPUT:
+	RETVAL