@verb #4133:"waif_new" this none this rxdo #4133
@program #4133:"waif_new" this none this
"Copied from WAIF superclass (#141):new by Slacker (#55) Aug 20 22:20:07 2002"
set_task_perms(caller_perms())
w = new_waif()
if (args)
  for x in (args[1])
    `w->(x[1]) = x[2] ! E_PERM'
  endfor
endif
w->initialize(@args[2..$])
return w
"Last modified by Lao-Tzu (#8084) on Mon Aug 12 08:19:53 2002 MDT."
"This verb previously owned by manta (#7165), and chowned to $slacker upon dewizarding (Sat Aug 17 14:50:05 2002 MDT)."
.