--- a/HistoryManager.st	Sun Feb 08 19:32:52 2009 +0100
+++ b/HistoryManager.st	Wed Feb 11 13:02:13 2009 +0100
@@ -125,6 +125,19 @@
     "Modified: 11.08.1995 / 17:01:29 / robert"
 ! !
 
+!HistoryManager class methodsFor:'AEG-Extensions'!
+
+getLastHistoryLineFrom:someString
+    "returns the last HistoryLine, if no HistoryLine available, return nil"
+
+    |hist|
+    hist := self getAllHistoriesFrom: someString.
+    hist isEmpty ifTrue: [ ^nil].
+    ^hist last
+
+    "Created: 19.1.1996 / 13:08:57 / werner"
+! !
+
 !HistoryManager class methodsFor:'accessing'!
 
 fullHistoryUpdate
@@ -249,9 +262,14 @@
 
     |position aReadWriteStream firstFound nextFound  aHistoryString rcOC h|
 
+    rcOC := OrderedCollection new.
+
+    someString isNil ifTrue:[
+        ^ rcOC
+    ].
+
     "read begining from the end and look there for the first comment character. If there's none return"
 
-    rcOC := OrderedCollection new.
     position := someString size.
     firstFound := false.
     nextFound := false.
@@ -877,7 +895,7 @@
 !
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/HistoryManager.st,v 1.67 2008-01-17 10:02:32 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/HistoryManager.st,v 1.68 2009-02-11 12:02:13 cg Exp $'
 ! !
 
 !HistoryManager::HistoryLine class methodsFor:'filtering'!
@@ -1503,7 +1521,7 @@
 !HistoryManager class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/HistoryManager.st,v 1.67 2008-01-17 10:02:32 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/HistoryManager.st,v 1.68 2009-02-11 12:02:13 cg Exp $'
 ! !
 
 HistoryManager initialize!