FIX: alphanum-symbols tokenization + potential crash

- added checks for alphanumeric symbols (":mod") to get parsed properly as they now check for a space or double dot afterwards. This avoids misinterpretation of typenames beginning with  "mod/shr/shl..." (Method get:Module() was tokenized as ":mod")
- added length-check to avoid trying to read beyond array length

toker.bmx

@@ -202,8 +202,42 @@ Type TToker
 'If i = 9 And _line = 42 DebugStop
 				Local sym$=_symbols[i]
 				If char<>sym[0] Continue
+
+				'do not try to read beyond source length
+				If TCHR(sym.length) <= 0 Then Continue
+
 'Local a:String = _source[_tokePos-1.._tokePos+sym.length-1]
 				If _source[_tokePos-1.._tokePos+sym.length-1].ToLower()=sym
+					'found the sym-string-representation in the code...
+					'but alphanumeric-symbols need a space or ".."-line-
+					'concat to work, skip other matches.
+					'else "Method My:ModObject" would tokenize ":mod"
+					Local isAlphaNum:Byte = False
+					For Local j:int = 0 Until sym.length
+						If IsAlpha(sym[j]) Or IsDigit(sym[j])
+							isAlphaNum = True
+							Exit
+						EndIf
+					Next
+					'only look advance if there is enough to read
+					If isAlphaNum And _source.Length >= _tokePos+sym.length
+						'compare following char according our rules
+						Local followUpChar:String = Chr(_source[_tokePos + sym.length - 1])
+
+						'NO concat via "double dot"?
+						If followUpChar = "."
+							'enough space left for double-dot-check
+							If _source.Length >= _tokePos + sym.length + 1
+								followUpChar = Chr(_source[_tokePos + sym.length])
+								If followUpChar = "." Then Continue
+							EndIf
+						EndIf
+
+						'NO space?
+						If Not IsSpace(Asc(followUpChar)) Then Continue
+					EndIf
+
+				
 					'_toke = _symbols_map[i]
 					
 					_tokePos:+sym.length-1