TCL error: Rule after convert irule with otcu

rule Rule-OSN-IN {
   when CLIENT_ACCEPTED {
      switch [IP::protocol] {
          6 { set vip_port [TCP::local_port] }
         17 { set vip_port [UDP::local_port] }
         default { event disable }
      }
      switch $vip_port {
         25 { pool osn-in }
         80 { pool osn-in }
         default  { pool default_pool }
      }
   }
}