--- loncom/lond	2006/05/18 02:17:27	1.327
+++ loncom/lond	2006/05/18 02:32:06	1.328
@@ -2,7 +2,7 @@
 # The LearningOnline Network
 # lond "LON Daemon" Server (port "LOND" 5663)
 #
-# $Id: lond,v 1.327 2006/05/18 02:17:27 www Exp $
+# $Id: lond,v 1.328 2006/05/18 02:32:06 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -60,7 +60,7 @@ my $status='';
 my $lastlog='';
 my $lond_max_wait_time = 13;
 
-my $VERSION='$Revision: 1.327 $'; #' stupid emacs
+my $VERSION='$Revision: 1.328 $'; #' stupid emacs
 my $remoteVERSION;
 my $currenthostid="default";
 my $currentdomainid;
@@ -1052,11 +1052,11 @@ sub _do_hash_untie {
 # Are we reading or writing?
         if ($how eq &GDBM_READER()) {
 # We are reading
-           unless (open($sym,"$file_prefix.db.lock")) {
+           if (!open($sym,"$file_prefix.db.lock")) {
 # We don't have a lock file. This could mean
 # - that there is no such db-file
 # - that it does not have a lock file yet
-               unless ((-e "$file_prefix.db") || (-e "$file_prefix.db.gz")) {
+               if ((! -e "$file_prefix.db") && (! -e "$file_prefix.db.gz")) {
 # No such file. Forget it.                
                    $! = 2;
                    return undef;