Index: /trunk/source/compiler/nx1.lisp
===================================================================
--- /trunk/source/compiler/nx1.lisp	(revision 15078)
+++ /trunk/source/compiler/nx1.lisp	(revision 15079)
@@ -463,8 +463,10 @@
 
 (defnx1 nx1-%ptr-to-int ((%ptr-to-int)) context (ptr)
-  (make-acode 
-   (%nx1-operator %immediate-ptr-to-int)
-   (make-acode (%nx1-operator %macptrptr%) 
-               (nx1-form :value ptr))))
+   (make-acode (%nx1-operator typed-form)
+               *nx-target-natural-type*
+               (make-acode 
+                (%nx1-operator %immediate-ptr-to-int)
+                (make-acode (%nx1-operator %macptrptr%) 
+                            (nx1-form :value ptr)))))
 
 (defnx1 nx1-%null-ptr-p ((%null-ptr-p)) context (ptr)