--- a/CharacterArray.st	Mon Nov 08 22:16:22 1999 +0100
+++ b/CharacterArray.st	Tue Nov 09 10:31:31 1999 +0100
@@ -2245,6 +2245,22 @@
 
 !CharacterArray methodsFor:'Compatibility - Squeak'!
 
+includesSubString:aString
+    "return true, if a substring is contained in the receiver.
+     The compare is case sensitive."
+
+    ^ self includesString:aString
+
+    "
+     'hello world' includesSubString:'Hel'  
+     'hello world' includesSubString:'hel'  
+     'hello world' includesSubString:'llo'  
+    "
+
+
+
+!
+
 includesSubstring:aString caseSensitive:caseSensitive
     "return true, if a substring is contained in the receiver.
      The argument, caseSensitive controls if case is ignored in the compare."
@@ -3251,6 +3267,7 @@
 asText
     "return a Text-object (collection of lines) from myself."
 
+    Text isNil ifTrue:[^ self].
     ^ Text fromString:self
 
     "Created: 12.5.1996 / 10:41:14 / cg"
@@ -5456,6 +5473,6 @@
 !CharacterArray class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.169 1999-10-09 15:31:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.170 1999-11-09 09:31:31 cg Exp $'
 ! !
 CharacterArray initialize!