--- a/PrimitiveFailure.st	Fri Jan 07 13:37:05 2005 +0100
+++ b/PrimitiveFailure.st	Tue Jan 11 15:12:19 2005 +0100
@@ -44,8 +44,15 @@
 "
 ! !
 
+!PrimitiveFailure methodsFor:'printing & storing'!
+
+description
+
+    ^ super description, ': ', originator printString, '>>', parameter selector printString
+! !
+
 !PrimitiveFailure class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/PrimitiveFailure.st,v 1.5 2004-04-23 11:41:08 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/PrimitiveFailure.st,v 1.6 2005-01-11 14:12:19 stefan Exp $'
 ! !