@verb #6:"_constructor" this none this rxdo #55
@program #6:"_constructor" this none this
"Begin generic security check (_constructor)"
if (verb == "_constructor" && caller_perms() != #-1)
  raise(E_PERM)
  return E_PERM
endif
"End generic security check (_constructor)"
if (caller_perms() != #-1)
  return
endif
fork (0)
  args[1].help_db = 0
  try
    if (!args[1]:set_name(args[1].name))
      args[1].name = "Unnamed room"
    endif
  except (ANY)
    args[1].name = "Unnamed room"
  endtry
  if ($room_db.frozen)
    $room_db.frozen = 2
  endif
endfork
"Last modified by whiz (#3135) on Sun Dec 30 11:50:52 2001 MST."
"This verb previously owned by manta (#7165), and chowned to $slacker upon dewizarding (Sat Aug 17 14:50:04 2002 MDT)."
"Last modified by Dax (#789) on Sat Aug 17 14:50:04 2002 MDT."
.