try and apply the following patch
----------8<-------------------------------------------------------8<--------------24c24
< set imdburl "http://www.imdb.com"
---
> set imdburl "http://us.imdb.com/title/"
163,164c163,165
< #putserv "NOTICE $nick : $oldpage(meta)"
< set newurl [string range $location 9 [expr [string length $location] - 12]]
---
> #putserv "NOTICE $nick : $oldpage(meta)"
> regexp {([0-9]+)} $location all num
> set newurl "${imdburl}tt${num}/"
----------8<-------------------------------------------------------8<--------------
eg. patch -p0 imdb.tcl patch.diff
will hopefully work =)