--- scripts/tcidb.pl	2008/09/09 13:24:15	35
+++ scripts/tcidb.pl	2008/09/21 14:24:22	36
@@ -16,7 +16,7 @@
 my $idb = tcidbnew();
 
 # open the database
-if (!tcidbopen($idb, "casket", IDBOWRITER | IDBOCREAT)) {
+if (!tcidbopen($idb, "casket-idb", IDBOWRITER | IDBOCREAT)) {
 	my $ecode = tcidbecode($idb);
 	die "open error: ", tcidberrmsg($ecode);
 }