--- a/HierarchicalListEditor.st	Thu Feb 05 22:08:34 1998 +0100
+++ b/HierarchicalListEditor.st	Thu Feb 05 22:10:09 1998 +0100
@@ -1035,7 +1035,7 @@
 
     |node newItem|
 
-    (node := treeView selectedNode) notNil 
+    ((node := treeView selectedNode) notNil and: [self checkMenuItemModified])
     ifTrue:
     [
         treeView model add: (newItem := self newItem) afterIndex: node children size below:node.
@@ -1052,7 +1052,7 @@
     "
     |node newItem|
 
-    (node := treeView selectedNode) notNil 
+    ((node := treeView selectedNode) notNil and: [self checkMenuItemModified]) 
     ifTrue:
     [
         newItem := self newItem.
@@ -1071,7 +1071,7 @@
     "cut current selected nodes"
 
     |selection|
-    treeView hasSelection 
+    (treeView hasSelection and: [self checkMenuItemModified]) 
     ifTrue:
     [
         self doCopy.
@@ -1215,11 +1215,14 @@
 doPaste
     "paste after current selected item"
 
-    treeView selectedNodeAdd:CopyBuffer.
-    CopyBuffer isCollection ifFalse: [treeView selectNode: CopyBuffer] ifTrue: [treeView selection: (CopyBuffer collect: [:node| treeView indexOfNode: node])].
-    self updateChannels.
-    isModified := true
-
+    self checkMenuItemModified
+    ifTrue:
+    [
+        treeView selectedNodeAdd:CopyBuffer.
+        CopyBuffer isCollection ifFalse: [treeView selectNode: CopyBuffer] ifTrue: [treeView selection: (CopyBuffer collect: [:node| treeView indexOfNode: node])].
+        self updateChannels.
+        isModified := true
+    ]
 !
 
 doReload