--- a/TestSuitesScripter.st	Fri Dec 14 00:08:20 2001 +0100
+++ b/TestSuitesScripter.st	Fri Dec 14 00:13:18 2001 +0100
@@ -48,7 +48,7 @@
                         [realName := aString.
                         useHierachy := false].
         realName isEmpty ifTrue: [^nil].
-        testCase := SUnitNameResolver classNamed: realName asSymbol.
+        testCase := Smalltalk classNamed: realName asSymbol.
         testCase isNil ifTrue: [^nil].
         ^useHierachy
                 ifTrue: [self hierachyOfTestSuitesFrom: testCase]
@@ -119,5 +119,5 @@
 !TestSuitesScripter class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestSuitesScripter.st,v 1.5 2001-11-21 15:04:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestSuitesScripter.st,v 1.6 2001-12-13 23:13:18 cg Exp $'
 ! !