--- loncom/interface/lontest.pm	2002/06/26 14:01:50	1.5
+++ loncom/interface/lontest.pm	2002/08/12 18:21:42	1.6
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # A debugging harness.
 #
-# $Id: lontest.pm,v 1.5 2002/06/26 14:01:50 www Exp $
+# $Id: lontest.pm,v 1.6 2002/08/12 18:21:42 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -96,10 +96,10 @@ sub section
 
      my $fn=$ENV{'request.course.fn'};
 
-     if ((tie(%hash,'GDBM_File',"$fn.db",&GDBM_READER,0640)) &&
+     if ((tie(%hash,'GDBM_File',"$fn.db",&GDBM_READER(),0640)) &&
 		(tie(%parmhash,'GDBM_File',
 		     $ENV{'request.course.fn'}.'_parms.db',
-		     &GDBM_READER,0640))) {
+		     &GDBM_READER(),0640))) {
      $r->print('<h2>Big Hash</h2>');
          foreach (sort keys %hash) {
 	     $r->print("\n<br>".$_.': '.$hash{$_});