--- a/SUnitNameResolver.st	Wed Jul 12 16:13:02 2017 +0200
+++ b/SUnitNameResolver.st	Thu Jul 13 15:10:19 2017 +0200
@@ -1,12 +1,31 @@
 "{ Package: 'stx:goodies/sunit' }"
 
+"{ NameSpace: Smalltalk }"
+
 Object subclass:#SUnitNameResolver
 	instanceVariableNames:''
-	classVariableNames:''
+	classVariableNames:'DefaultLogDevice'
 	poolDictionaries:''
 	category:'SUnit-Preload'
 !
 
+!SUnitNameResolver class methodsFor:'documentation'!
+
+documentation
+"
+    documentation to be added.
+
+    [author:]
+        cg
+
+    [instance variables:]
+
+    [class variables:]
+
+    [see also:]
+
+"
+! !
 
 !SUnitNameResolver class methodsFor:'Camp Smalltalk'!
 
@@ -15,7 +34,15 @@
 !
 
 defaultLogDevice
-    ^Transcript
+    ^ DefaultLogDevice ? Transcript
+
+    "Modified: / 13-07-2017 / 15:10:00 / cg"
+!
+
+defaultLogDevice:aStream
+    DefaultLogDevice := aStream
+
+    "Created: / 13-07-2017 / 15:10:09 / cg"
 !
 
 errorObject
@@ -37,9 +64,10 @@
 !SUnitNameResolver class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/SUnitNameResolver.st,v 1.7 2011-06-29 19:15:49 cg Exp $'
+    ^ '$Header$'
 !
 
 version_SVN
-    ^ '§Id: SUnitNameResolver.st 204 2010-09-11 15:21:51Z vranyj1 §'
+    ^ '$Id$'
 ! !
+