--- scripts/tcqdb.pl	2008/09/09 13:24:15	35
+++ scripts/tcqdb.pl	2008/09/21 14:24:22	36
@@ -16,7 +16,7 @@
 my $qdb = tcqdbnew();
 
 # open the database
-if (!tcqdbopen($qdb, "casket", QDBOWRITER | QDBOCREAT)) {
+if (!tcqdbopen($qdb, "casket-qdb", QDBOWRITER | QDBOCREAT)) {
 	my $ecode = tcqdbecode($qdb);
 	die "open error: ", tcqdberrmsg($ecode);
 }