just out of desperation and a whim i tried this..

Code:
if ($did == 3) { 
      var %i = 1 
      while $hget(words,%i).data {
        .hdel words $did(1).seltext
        inc %i
      }
      did -d $dname 1 $did(1).sel
    }


and it's working ... so far confused..

go figure