Index: /trunk/ccl/compiler/nx1.lisp
===================================================================
--- /trunk/ccl/compiler/nx1.lisp	(revision 636)
+++ /trunk/ccl/compiler/nx1.lisp	(revision 637)
@@ -1157,6 +1157,5 @@
            0))))))
 
-(defnx1 nx1-%newgotag %newgotag ()
-  (make-acode (%nx1-operator newgotag)))
+
 
 (defnx1 nx1-go go (tag)