Index: /trunk/source/level-0/l0-numbers.lisp
===================================================================
--- /trunk/source/level-0/l0-numbers.lisp	(revision 13391)
+++ /trunk/source/level-0/l0-numbers.lisp	(revision 13392)
@@ -1806,5 +1806,5 @@
 ;;; too bad in a 64-bit CCL, but the generator pretty much has to be
 ;;; in LAP for 32-bit ports.
-#-(or x8632-target ppc32-target x8664-target)
+#-(or x8632-target ppc32-target x8664-target ppc64-target)
 (defun %mrg31k3p (state)
   (let* ((v (random.mrg31k3p-state state)))