--- a/Parser.st	Mon Aug 22 11:26:38 2016 +0200
+++ b/Parser.st	Mon Aug 22 15:43:30 2016 +0200
@@ -11858,7 +11858,7 @@
         ].
         self nextToken.
 
-        functionName isAlphaNumeric ifFalse:[
+        functionName isValidSmalltalkIdentifier "isAlphaNumeric" ifFalse:[
             "/ mhm a newer squeak definition in the form 'extern void warning(char *s)'
             self parseError:'cannot (yet) parse new style squeak external functions'.
             ^ nil