--- a/SUnitNameResolver.st	Fri Sep 26 18:09:52 2003 +0200
+++ b/SUnitNameResolver.st	Fri Sep 26 18:36:35 2003 +0200
@@ -12,13 +12,26 @@
 
 classNamed: aSymbol 
     ^Smalltalk at: aSymbol ifAbsent: [nil]
+!
 
-    "Created: / 20.6.2000 / 18:20:42 / Sames"
-    "Modified: / 20.6.2000 / 18:20:50 / Sames"
+defaultLogDevice
+    ^Transcript
+!
+
+errorObject 
+        ^Error
+!
+
+mnuExceptionObject 
+        ^MessageNotUnderstood
+!
+
+notificationObject 
+        ^Notification
 ! !
 
 !SUnitNameResolver class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/SUnitNameResolver.st,v 1.4 2002-02-26 10:30:47 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/SUnitNameResolver.st,v 1.5 2003-09-26 16:36:35 stefan Exp $'
 ! !