Index: /trunk/source/lib/nfcomp.lisp
===================================================================
--- /trunk/source/lib/nfcomp.lisp	(revision 12925)
+++ /trunk/source/lib/nfcomp.lisp	(revision 12926)
@@ -1236,5 +1236,5 @@
               ;; space as constants.  Refuse to dump other pointers.
               (unless (and (zerop (%macptr-type exp))
-                           (zerop (%macptr-domain exp)))
+                           (<= (%macptr-domain exp) 1))
                 (error "Can't dump typed pointer ~s" exp))
               (let* ((addr (%ptr-to-int exp)))