--- a/Context.st	Sun Aug 05 12:28:34 2012 +0200
+++ b/Context.st	Sun Aug 05 18:22:41 2012 +0200
@@ -1691,11 +1691,11 @@
     aStream normal.
     aStream space.
     (method notNil and:[method isWrapped]) ifTrue:[
-        aStream nextPutAll:'W '
+        aStream nextPutAll:'(wrapped) '
     ].
     aStream nextPutAll:' ['; nextPutAll:self lineNumber printString; nextPutAll:']' .
 
-    "Modified: / 20-07-2012 / 14:33:13 / cg"
+    "Modified: / 05-08-2012 / 12:00:00 / cg"
 !
 
 receiverPrintString
@@ -2451,7 +2451,7 @@
 !Context class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Context.st,v 1.173 2012-08-03 15:53:49 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Context.st,v 1.174 2012-08-05 16:22:41 cg Exp $'
 !
 
 version_SVN