--- a/Object.st	Fri Dec 06 15:32:12 2013 +0100
+++ b/Object.st	Fri Dec 06 15:40:10 2013 +0100
@@ -4434,12 +4434,8 @@
 
     <resource: #skipInDebuggersWalkBack>
 
-    |messageSend|
-
-    messageSend := thisContext sender messageSend.
     ^ MethodNotAppropriateError
-        raiseRequestWith:messageSend
-        errorString:'method/functionality is not yet implemented: ', messageSend printString
+        raiseRequestErrorString:'method/functionality is not yet implemented'.
 
     "Modified: / 02-11-2012 / 10:24:12 / cg"
 !
@@ -4675,12 +4671,8 @@
 
     <resource: #skipInDebuggersWalkBack>
 
-    |messageSend|
-
-    messageSend := thisContext sender messageSend.
     ^ MethodNotAppropriateError
-        raiseRequestWith:messageSend
-        errorString:'This message never may be sent to me: ', messageSend printString
+        raiseRequestErrorString:'This message never may be sent to me'.
 
     "Modified: / 20-04-2005 / 18:59:28 / janfrog"
     "Modified: / 02-11-2012 / 10:10:42 / cg"
@@ -4694,12 +4686,8 @@
 
     <resource: #skipInDebuggersWalkBack>
 
-    |messageSend|
-
-    messageSend := thisContext sender messageSend.
     ^ MethodNotAppropriateError
-        raiseRequestWith:messageSend
-        errorString:'method/functionality is not appropriate for class: ', messageSend printString
+        raiseRequestErrorString:'method/functionality is not appropriate for class'.
 
     "Modified: / 02-11-2012 / 10:02:25 / cg"
 !
@@ -7356,12 +7344,12 @@
     |myClass hasSemi sz "{ Class: SmallInteger }" |
 
     thisContext isRecursive ifTrue:[
-	Object recursiveStoreStringSignal raiseRequestWith:self.
-	'Object [error]: storeString of self referencing object (' errorPrint.
-	self class name errorPrint.
-	')' errorPrintCR.
-	aStream nextPutAll:'#("recursive")'.
-	^ self
+        RecursiveStoreError raiseRequestWith:self.
+        'Object [error]: storeString of self referencing object (' errorPrint.
+        self class name errorPrint.
+        ')' errorPrintCR.
+        aStream nextPutAll:'#("recursive")'.
+        ^ self
     ].
 
     myClass := self class.
@@ -7370,34 +7358,34 @@
 
     hasSemi := false.
     myClass isVariable ifTrue:[
-	aStream nextPutAll:' basicNew:'.
-	self basicSize printOn:aStream
+        aStream nextPutAll:' basicNew:'.
+        self basicSize printOn:aStream
     ] ifFalse:[
-	aStream nextPutAll:' basicNew'
+        aStream nextPutAll:' basicNew'
     ].
 
     sz := myClass instSize.
     1 to:sz do:[:i |
-	aStream nextPutAll:' instVarAt:'.
-	i printOn:aStream.
-	aStream nextPutAll:' put:'.
-	(self instVarAt:i) storeOn:aStream.
-	aStream nextPut:$;.
-	hasSemi := true
+        aStream nextPutAll:' instVarAt:'.
+        i printOn:aStream.
+        aStream nextPutAll:' put:'.
+        (self instVarAt:i) storeOn:aStream.
+        aStream nextPut:$;.
+        hasSemi := true
     ].
     myClass isVariable ifTrue:[
-	sz := self basicSize.
-	1 to:sz do:[:i |
-	    aStream nextPutAll:' basicAt:'.
-	    i printOn:aStream.
-	    aStream nextPutAll:' put:'.
-	    (self basicAt:i) storeOn:aStream.
-	    aStream nextPut:$;.
-	    hasSemi := true
-	]
+        sz := self basicSize.
+        1 to:sz do:[:i |
+            aStream nextPutAll:' basicAt:'.
+            i printOn:aStream.
+            aStream nextPutAll:' put:'.
+            (self basicAt:i) storeOn:aStream.
+            aStream nextPut:$;.
+            hasSemi := true
+        ]
     ].
     hasSemi ifTrue:[
-	aStream nextPutAll:' yourself'
+        aStream nextPutAll:' yourself'
     ].
     aStream nextPut:$).
 
@@ -9926,11 +9914,11 @@
 !Object class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.742 2013-12-06 14:16:45 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.743 2013-12-06 14:40:10 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.742 2013-12-06 14:16:45 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.743 2013-12-06 14:40:10 stefan Exp $'
 !
 
 version_SVN