diff --git a/forth/device/other.fs b/forth/device/other.fs
index ad68ffc..f221a25 100644
--- a/forth/device/other.fs
+++ b/forth/device/other.fs
@@ -96,6 +96,7 @@ hex
   ;
   
 : alarm    ( xt n -- )
+  2drop
   ;
   
 : user-abort    ( ... -- )  ( R: ... -- )