--- a/EditTextView.st	Sat Nov 11 17:29:21 2017 +0100
+++ b/EditTextView.st	Wed Nov 15 11:56:58 2017 +0100
@@ -25,8 +25,8 @@
 		learnedMacro cursorLineHolder cursorColHolder tabRequiresControl
 		undoSupport lastStringFromReplaceForNextSearch
 		lastReplacementInfo completionSupport codeAspectHolder'
-	classVariableNames:'DefaultCursorForegroundColor DefaultCursorBackgroundColor
-		DefaultCursorType DefaultCursorNoFocusForegroundColor
+	classVariableNames:'DefaultCursorBackgroundColor DefaultCursorForegroundColor
+		DefaultCursorNoFocusForegroundColor DefaultCursorType
 		DefaultCursorTypeNoFocus LastColumnNumberForSort Macros'
 	poolDictionaries:''
 	category:'Views-Text'
@@ -7736,6 +7736,7 @@
     |sel in out separator record|
 
     selectionStartLine isNil ifTrue:[^ self].
+    self checkModificationsAllowed ifFalse:[^ self].
 
     separator := Dialog request:(resources string:'Split selected lines after which separator character or string:').
     separator isEmptyOrNil ifTrue:[^ self].
@@ -7752,6 +7753,8 @@
             self replaceSelectionBy:(out contents).
         ]
         info:'Split Selection'
+
+    "Modified: / 15-11-2017 / 11:56:45 / cg"
 !
 
 undoablePaste:someText