--- loncom/interface/lonnavmaps.pm	2002/10/01 19:15:22	1.59
+++ loncom/interface/lonnavmaps.pm	2002/10/01 19:39:11	1.60
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Navigate Maps Handler
 #
-# $Id: lonnavmaps.pm,v 1.59 2002/10/01 19:15:22 bowersj2 Exp $
+# $Id: lonnavmaps.pm,v 1.60 2002/10/01 19:39:11 bowersj2 Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1272,6 +1272,7 @@ sub new {
     if (!(tie(%parmhash, 'GDBM_File', $self->{PARM_HASH_FILE},
               &GDBM_READER(), 0640)))
     {
+	untie $self->{PARM_HASH};
         return undef;
     }
     $self->{PARM_HASH} = \%parmhash;
@@ -1405,8 +1406,8 @@ sub getIterator {
 # unties the hash when done
 sub untieHashes {
     my $self = shift;
-    untie $self->{NAV_HASH} if ($self->{HASH_TIED});
-    untie $self->{PARM_HASH} if ($self->{HASH_TIED});
+    untie %{$self->{NAV_HASH}} if ($self->{HASH_TIED});
+    untie %{$self->{PARM_HASH}} if ($self->{HASH_TIED});
     $self->{HASH_TIED} = 0;
 }