diff --git a/dependent.lisp b/dependent.lisp
index 97c3fae..a697d9f 100644
--- a/dependent.lisp
+++ b/dependent.lisp
@@ -387,7 +387,9 @@
 
   (defun anglep (x)
     (and (typep x 'real)
-         (<= (* -360 64) (radians->int16 x) (* 360 64)))))
+         (<= (* -360 64)
+             (the int16 (round x #.(float (/ pi 180.0s0 64.0s0) 0.0s0)))
+             (* 360 64)))))
 
 
 ;;-----------------------------------------------------------------------------