Index: /trunk/source/compiler/nx1.lisp
===================================================================
--- /trunk/source/compiler/nx1.lisp	(revision 14758)
+++ /trunk/source/compiler/nx1.lisp	(revision 14759)
@@ -699,5 +699,6 @@
       (make-acode (%nx1-operator %%ineg)(nx1-form num))
       (make-acode (%nx1-operator %ineg) (nx1-form num)))
-    (make-acode (%nx1-operator minus1) (nx1-form num))))
+    (nx1-form `(- 0 ,num))))
+