--- a/ListView.st	Mon Feb 25 11:05:41 2008 +0100
+++ b/ListView.st	Mon Feb 25 11:22:40 2008 +0100
@@ -2180,13 +2180,7 @@
 !
 
 initializeWordCheckAction
-    wordCheck := [:char |
-                        UserPreferences current extendedWordSelectMode ifTrue:[
-                            char isNationalAlphaNumeric or:[char == $_] 
-                        ] ifFalse:[
-                            char isNationalAlphaNumeric
-                        ].
-                 ].
+    wordCheck := [:char | self standardWordCheck:char].
 
     "Created: / 03-07-2006 / 17:03:50 / cg"
 !
@@ -4309,6 +4303,14 @@
         ifAbsent:block2
 
     "Modified: 13.9.1997 / 01:07:11 / cg"
+!
+
+standardWordCheck:char
+"/ ^ char isSeparator not.
+    UserPreferences current extendedWordSelectMode ifTrue:[
+        ^ char isNationalAlphaNumeric or:[char == $_] 
+    ].
+    ^ char isNationalAlphaNumeric
 ! !
 
 !ListView methodsFor:'tabulators'!
@@ -4516,5 +4518,5 @@
 !ListView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.318 2008-02-25 10:05:41 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.319 2008-02-25 10:22:40 stefan Exp $'
 ! !