X-Git-Url: http://git.kpe.io/?p=xlunit.git;a=blobdiff_plain;f=suite.lisp;h=391258e26afb373f15de2b9f014b62dc7882c456;hp=f2394abecf65b106b677ce896e2776d0ba480dee;hb=3d99efdf0959b199cc4b2e020c7692f650094f73;hpb=6c233c812b0e160d80e613bb3dfcedc59514e3e9

diff --git a/suite.lisp b/suite.lisp
index f2394ab..391258e 100644
--- a/suite.lisp
+++ b/suite.lisp
@@ -2,7 +2,7 @@
 ;;;; *************************************************************************
 ;;;; FILE IDENTIFICATION
 ;;;;
-;;;; ID:      $Id: suite.lisp,v 1.6 2003/08/04 19:31:34 kevin Exp $
+;;;; ID:      $Id: suite.lisp,v 1.7 2003/08/05 22:56:25 kevin Exp $
 ;;;; Purpose: Suite functions for XLUnit
 ;;;;
 ;;;; *************************************************************************
@@ -42,7 +42,7 @@
   (setf (tests suite)
     (delete-if #'(lambda (existing-tests-or-suite)
 		   (cond ((typep existing-tests-or-suite 'test-suite)
-			  (eq existing-tests-or-suite new-test))
+			  (eq existing-tests-or-suite test))
 			 ((typep existing-tests-or-suite 'test-case)
 			  (eql (name existing-tests-or-suite)
 			       (name test)))))