--- a/Character.st	Wed Aug 28 18:36:06 2019 +0200
+++ b/Character.st	Fri May 24 12:56:36 2019 +0200
@@ -2015,6 +2015,14 @@
     ^ self isLetter or:[self isDigit]
 !
 
+isLetterOrDigitOrUnderline
+    "return true, if I am a letter or a digit or $_"
+
+    ^ self == $_ or:[ self isLetterOrDigit ]
+
+    "Created: / 24-05-2019 / 12:56:23 / Claus Gittinger"
+!
+
 isLetterOrUnderline
     "return true, if I am a letter or $_"