--- a/UIHelpTool.st	Mon Aug 28 19:48:41 2006 +0200
+++ b/UIHelpTool.st	Tue Aug 29 13:23:02 2006 +0200
@@ -1040,24 +1040,26 @@
 !
 
 cancel
-    "cancel modifications, reload helpText
-    "
+    "cancel modifications, reload helpText"
+
     |item contents modified|
 
     item := keyItemModel value.
     modified := false.
 
     item notNil ifTrue:[
-	contents := item helpText.
+        contents := item helpText.
     ] ifFalse:[
-	contents := nil.
+        contents := nil.
 
-	modifiedHolder isNil ifTrue:[
-	    modified := self helpKey notNil
-	]
+        modifiedHolder isNil ifTrue:[
+            modified := self helpKey notNil
+        ]
     ].
     helpTextView contents:contents.
     contentsModifiedChannel value:modified.
+
+    "Modified: / 29-08-2006 / 10:20:37 / cg"
 !
 
 doDelete