diff --git a/pcl/rt/defclass.lisp b/pcl/rt/defclass.lisp
index de199e900526ad8d95128f46913bc7309481fddd..0bbf5beda16965b44587fea22687bce048420a96 100644
--- a/pcl/rt/defclass.lisp
+++ b/pcl/rt/defclass.lisp
@@ -28,7 +28,7 @@
 ;;; DAMAGE.
 
 #+cmu
-(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/rt/defclass.lisp,v 1.2 2003/03/22 16:15:15 gerd Exp $")
+(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/rt/defclass.lisp,v 1.3 2003/04/03 11:46:20 gerd Exp $")
 
 (in-package "PCL-TEST")
 
@@ -175,3 +175,17 @@
     (values r (null c)))
   t t)
 
+;;;
+;;; The change of DFR1 from forward-referenced to standard class
+;;; caused problems at some point, which were fixed by passing
+;;; initargs to CHANGE-CLASS in ENSURE-CLASS-USING-CLASS.
+;;;
+(deftest defclass-forward-referenced-class.0
+    (multiple-value-bind (r c)
+	(ignore-errors
+	  (defclass dfr0 (dfr1 dfr2) ())
+	  (defclass dfr1 (dfr3 dfr4) ())
+	  t)
+      (values r (null c)))
+  t t)
+