--- a/StringCollection.st	Wed Jun 17 16:23:27 1998 +0200
+++ b/StringCollection.st	Wed Jun 17 16:24:21 1998 +0200
@@ -95,6 +95,19 @@
     ^ self
 !
 
+asStringWithoutEmphasis
+    "return myself as a string with embedded cr's, but drop any emphasis"
+
+    ^ self 
+        asStringWith:Character cr
+        from:1 to:(self size) 
+        compressTabs:false 
+        final:Character cr
+        withEmphasis:false
+
+    "Created: / 17.6.1998 / 12:32:48 / cg"
+!
+
 from:aString
     "setup my contents from the argument, aString"
 
@@ -220,5 +233,5 @@
 !StringCollection class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/StringCollection.st,v 1.25 1996-04-25 16:18:04 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/StringCollection.st,v 1.26 1998-06-17 14:24:21 cg Exp $'
 ! !