diff --git a/extra/http/server/sessions/sessions.factor b/extra/http/server/sessions/sessions.factor
index 7d6ca5a637..4db256ca72 100755
--- a/extra/http/server/sessions/sessions.factor
+++ b/extra/http/server/sessions/sessions.factor
@@ -23,7 +23,7 @@ TUPLE: session id manager namespace alarm ;
 : timeout ( -- dt ) 20 minutes ;
 
 : cancel-timeout ( session -- )
-    alarm>> ?box [ cancel-alarm ] [ drop ] if ;
+    alarm>> [ cancel-alarm ] if-box? ;
 
 : delete-session ( session -- )
     dup cancel-timeout