diff --git a/pcl/env.lisp b/pcl/env.lisp
index b7e12dbcc6bd1171f8fb4a507ba5df5cf382b9d9..b3d1b595257cc6d57d80390b2818f6c4f4b678dc 100644
--- a/pcl/env.lisp
+++ b/pcl/env.lisp
@@ -26,7 +26,7 @@
 ;;;
 
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/env.lisp,v 1.12 1999/05/30 23:13:58 pw Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/env.lisp,v 1.13 2001/03/14 23:25:16 pw Exp $")
 ;;;
 ;;; Basic environmental stuff.
 ;;;
@@ -37,6 +37,10 @@
 ;;;
 ;;;
 
+;;; ANSI compliance wants default structure printer to use #S(...) format.
+(defmethod print-object ((object structure-object) stream)
+  (lisp::default-structure-print object stream 0))
+
 (defgeneric describe-object (object stream))
 
 (defmethod describe-object (object stream)