--- a/FileApplicationNoteBook.st	Tue Oct 29 18:16:41 2002 +0100
+++ b/FileApplicationNoteBook.st	Wed Oct 30 10:40:43 2002 +0100
@@ -3694,7 +3694,7 @@
 
     | hashStream string|
 
-    self hasMD5 ifTrue:[
+    (self hasMD5 and:[editView notNil]) ifTrue:[
         hashStream := MD5Stream new.
         string := editView contents asString.
         hashStream nextPut:(string string).
@@ -4678,5 +4678,5 @@
 !FileApplicationNoteBook class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileApplicationNoteBook.st,v 1.26 2002-10-29 17:16:41 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileApplicationNoteBook.st,v 1.27 2002-10-30 09:40:43 tm Exp $'
 ! !