--- ical-2.2/tcllib/ruler.tcl.alarm-arrow	1996-05-29 22:51:09.000000000 -0400
+++ ical-2.2/tcllib/ruler.tcl	2003-04-28 11:33:01.000000000 -0400
@@ -199,7 +199,7 @@ proc ruler_release c {
     if {[llength $coords] < 6} return
     set v_y [lindex $coords 1]
 
-    if {$v_y != [expr $v(top)+2]} {
+    if {($v_y < [expr $v(top)+1]) || ($v_y > [expr $v(top)+3])} {
 	$c delete active
     } else {
 	eval "$c itemconf active $v(normalStyle)"