--- a/PrimitiveFailure.st	Tue Nov 08 12:08:47 2005 +0100
+++ b/PrimitiveFailure.st	Tue Nov 08 12:10:37 2005 +0100
@@ -48,11 +48,17 @@
 
 description
 
-    ^ super description, ': ', originator printString, '>>', parameter selector printString
+    |desc|
+
+    desc := super description, ': ', originator printString.
+    parameter notNil ifTrue:[
+        desc := desc, '>>', parameter selector printString
+    ].
+    ^ desc
 ! !
 
 !PrimitiveFailure class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/PrimitiveFailure.st,v 1.6 2005-01-11 14:12:19 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/PrimitiveFailure.st,v 1.7 2005-11-08 11:10:37 stefan Exp $'
 ! !