diff --git a/code/ntrace.lisp b/code/ntrace.lisp
index 0c9fc68e1e54c52fc85cc535c3d78ef9691e3aa1..f46546db2100422a152e7f8020a86ebf372f74dc 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.18 2003/01/23 21:05:34 toy Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/ntrace.lisp,v 1.19 2003/01/29 21:48:40 cracauer Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -305,7 +305,7 @@
 	     (if (trace-info-encapsulated info)
 		 (locally (declare (special basic-definition argument-list))
 		   (prin1 `(,(trace-info-what info) ,@argument-list)))
-		 (print-frame-call frame))
+		 (print-frame-call frame :verbosity 1))
 	     (terpri)
 	     (trace-print frame (trace-info-print info)))
 	   (trace-maybe-break info (trace-info-break info) "before" frame)))