--- deliantra/server/lib/cf.pm	2008/04/11 14:09:57	1.417
+++ deliantra/server/lib/cf.pm	2008/04/11 21:09:53	1.418
@@ -1777,6 +1777,9 @@
 
 sub generate_random_map {
    my ($self, $rmp) = @_;
+
+   my $lock = cf::lock_acquire "generate_random_map"; # the random map generator is NOT reentrant ATM
+
    # mit "rum" bekleckern, nicht
    $self->_create_random_map (
       $rmp->{wallstyle}, $rmp->{wall_name}, $rmp->{floorstyle}, $rmp->{monsterstyle},