--- a/TextView.st	Fri Jun 25 11:54:53 2004 +0200
+++ b/TextView.st	Wed Jun 30 21:52:20 2004 +0200
@@ -2089,6 +2089,7 @@
 !
 
 removeTrailingWhitespace
+    list isNil ifTrue:[^self].
     list keysAndValuesDo:[:lineNR :line |
         |l|
 
@@ -3834,7 +3835,7 @@
 !TextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.245 2004-06-09 09:43:24 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.246 2004-06-30 19:52:20 ca Exp $'
 ! !
 
 TextView initialize!