--- a/ToolApplicationModel.st	Wed Jan 21 12:35:49 1998 +0100
+++ b/ToolApplicationModel.st	Thu Jan 22 15:10:29 1998 +0100
@@ -104,7 +104,8 @@
 
 getHistory
 
-    ^history ? (history := OrderedCollection new)
+    history isNil ifTrue: [history := OrderedCollection new].
+    ^history
 
 !
 
@@ -887,5 +888,5 @@
 !ToolApplicationModel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ToolApplicationModel.st,v 1.8 1998-01-21 11:35:49 tz Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ToolApplicationModel.st,v 1.9 1998-01-22 14:10:29 tz Exp $'
 ! !