why can't I clear the text?

[newbie]

Hi I would like to ask that why I can't clear the text

 list_data: layout [
                               
   
    t: text-list data db-view [
    probe face/picked ]

  across  
  tabs 100
  button "View" [val]  
  button "Delete" [delete-data]
  return
  button black "New" [clear-form]
  button black "Update" [update-data]
  return
  button black "SSO"

 
   
                       
]
       
val: does[
  value: reduce (t/picked)
  val-change: to-string value
  ;copy_value: copy change_value  
  ;print value1
 
foreach [Name Phone_num Company_name Address Email] db-select/where [Name Phone_num Company_name Address Email] tblcontact [ Name = "stella"] [
   name: Name
   phone_num: Phone_num
   company_name: Company_name
   address: Address
   email: Email
 
 
   cn/text: name show cn
   wp/text: phone_num show wp
   con/text: company_name show con
   sa/text: address show sa
   ea/text: email show ea
   
 
]        
         
   ]      
   ;clear data
   clear-form: does [
       
               
      clear cn/text
      clear wp/text      ;the value is integer cos it is    phone number
      clear con/text
      clear sa/text
      clear ea/text
      show [cn wp con sa ea]
         
     ]


the rest I can able to clear but when it reach the wp/text, it give me error:

Script Error: clear expected series argument of type: series port bitset none
** Where: clear-form
** Near: clear wp/text


Can anyone help me to solve the problem? Thank you
 

[CarlRead]

At a guess I'd say you should change the...

wp/text: phone_num show wp

to...

wp/text: to-string phone_num show wp

HTHs.