*** door.c.orig	Wed Jan 16 22:12:09 1991
--- door.c	Sun Oct  3 19:51:29 1993
***************
*** 135,141 ****
    if ( can_lock ) {
      add_action( "unlock", "unlock");
      
!     add_action( "lock", "lock");
    }
  }
  
--- 135,141 ----
    if ( can_lock ) {
      add_action( "unlock", "unlock");
      
!     add_action( "do_lock", "lock");
    }
  }
  
***************
*** 226,232 ****
    }
  }    
  
! lock( str)
  {
    object ob;
    int tmp;
--- 226,232 ----
    }
  }    
  
! do_lock( str)
  {
    object ob;
    int tmp;