Index: /trunk/source/compiler/X86/x862.lisp
===================================================================
--- /trunk/source/compiler/X86/x862.lisp	(revision 8584)
+++ /trunk/source/compiler/X86/x862.lisp	(revision 8585)
@@ -9104,4 +9104,13 @@
     
 
+(defx862 x862-%new-ptr %new-ptr (seg vreg xfer size clear-p )
+  (x862-call-fn seg
+                vreg
+                xfer
+                (make-acode (%nx1-operator immediate)
+                            '%new-gcable-ptr)
+                (list nil (list clear-p size))
+                nil))
+
 ;------
 
@@ -9110,8 +9119,6 @@
 
 
-;Make a gcable macptr.
-(defx862 x862-%new-ptr %new-ptr (b vreg xfer size clear-p )
-  (declare (ignore b vreg xfer size clear-p))
-  (error "%New-ptr is a waste of precious silicon."))
+;;;Make a gcable macptr.
+