--- a/extensions.st	Mon Aug 12 13:07:37 2002 +0200
+++ b/extensions.st	Mon Aug 19 18:29:46 2002 +0200
@@ -4,7 +4,7 @@
 !Behavior methodsFor:'Camp Smalltalk'!
 
 sunitAllSelectors
-        ^self allSelectors asSortedCollection asOrderedCollection
+	^self allSelectors asSortedCollection asOrderedCollection
 ! !
 
 !Behavior methodsFor:'Camp Smalltalk'!
@@ -15,6 +15,14 @@
     "Created: / 20.6.2000 / 11:54:54 / Sames"
 ! !
 
+!Exception methodsFor:'Camp Smalltalk'!
+
+sunitExitWith:aValue
+	^ self return:aValue
+
+    "Created: / 20.6.2000 / 18:22:33 / Sames"
+! !
+
 !Symbol methodsFor:'Camp Smalltalk'!
 
 sunitAsClass