@verb #211:":clone" this none this rxd #7214
@program #211:":clone" this none this
"WAIF ::clone()"
""
"Clones this object in a shallow copy."
set_task_perms(caller_perms())
w = this.class:new()
allProps = $object_utils:all_properties(this.class)
for p in (allProps)
  if (":" == p[1] && (p = p[2..$]))
    w.(p) = `this.(p) ! ANY => 0'
  endif
endfor
return w
"Last modified by JS (#7214) on Fri Aug 17 23:09:25 2001 MDT."
.