--- loncom/debugging_tools/clean_db.pl	2005/03/18 20:07:21	1.1
+++ loncom/debugging_tools/clean_db.pl	2005/03/18 21:36:49	1.2
@@ -4,7 +4,7 @@
 #
 # dump_db.pl - dump a GDBM database to standard output, unescaping if asked to.
 #
-# $Id: clean_db.pl,v 1.1 2005/03/18 20:07:21 albertel Exp $
+# $Id: clean_db.pl,v 1.2 2005/03/18 21:36:49 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -60,7 +60,7 @@ my $fname = shift;
 my $key_to_remove = shift;
 
 my %db;
-if (! tie(%db,'GDBM_File',$fname,&GDBM_WRITER,0640)) {
+if (! tie(%db,'GDBM_File',$fname,&GDBM_WRITER(),0640)) {
     warn "Unable to tie to $fname";
     exit;
 }