Index: /trunk/source/compiler/nx1.lisp
===================================================================
--- /trunk/source/compiler/nx1.lisp	(revision 8576)
+++ /trunk/source/compiler/nx1.lisp	(revision 8577)
@@ -2089,5 +2089,5 @@
                            (nx1-form num)
                            (make-acode (%nx1-operator fixnum)
-                                       (- amt)))
+                                       (min (1- max) (- amt))))
                (nx1-treat-as-call call))))
           ((and (fixnump amt)