--- a/extensions.st	Wed Jul 06 14:29:08 2011 +0200
+++ b/extensions.st	Wed Jul 06 16:26:11 2011 +0200
@@ -23,6 +23,13 @@
 	^self on: aSignal do: anExceptionBlock
 ! !
 
+!Class methodsFor:'Camp Smalltalk'!
+
+sunitName
+	
+	^self name
+! !
+
 !Exception methodsFor:'Camp Smalltalk'!
 
 sunitAnnounce: aTestCase toResult: aTestResult
@@ -118,5 +125,5 @@
 !stx_goodies_sunit class methodsFor:'documentation'!
 
 extensionsVersion_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/extensions.st,v 1.10 2011-07-05 12:05:06 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/extensions.st,v 1.11 2011-07-06 14:26:11 cg Exp $'
 ! !
\ No newline at end of file