diff --git a/code/ntrace.lisp b/code/ntrace.lisp
index 4ebb069a08959b588c0a04bdcccb431f6ac4b62e..6b2fe383ee46c0193a573780273f795ba2d42211 100644
--- a/code/ntrace.lisp
+++ b/code/ntrace.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/ntrace.lisp,v 1.30 2005/02/25 17:11:52 rtoy Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/ntrace.lisp,v 1.31 2005/10/07 14:20:12 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -34,7 +34,7 @@
   "If the trace indentation exceeds this value, then indentation restarts at
    0.")
 
-(defvar *trace-encapsulate-default* :default
+(defvar *trace-encapsulate-default* #-ppc :default #+ppc t
   "The default value for the :ENCAPSULATE option to trace.")
 
 (defvar *trace-encapsulate-package-names*