--- a/Symbol.st	Mon Dec 12 16:31:37 2016 +0100
+++ b/Symbol.st	Mon Dec 12 16:37:15 2016 +0100
@@ -756,57 +756,6 @@
 
 !Symbol methodsFor:'queries'!
 
-isInfix
-    "return true, if the receiver is a binary message selector"
-
-    ^ self first isLetterOrDigit not
-
-    "
-     #at:put: isInfix
-     #at: isInfix
-     #+ isInfix
-     #size isInfix
-    "
-
-    "Created: / 1.11.1997 / 12:34:55 / cg"
-    "Modified: / 1.11.1997 / 12:36:37 / cg"
-!
-
-isKeyword
-    "return true, if the receiver is a keyword message selector.
-     This is a quick check, which only looks at the last character.
-     Should only be used, if we already know that the receiver forms a valid selector.
-     To check an arbitrary string, use isKeywordSelector.
-     Bad naming, but compatibility is asking for it."
-
-    ^ self last == $:
-
-    "
-     #at:put: isKeyword
-     #at: isKeyword
-     #+ isKeyword
-     #size isKeyword
-    "
-
-    "Created: / 01-11-1997 / 12:34:55 / cg"
-    "Modified (comment): / 30-04-2016 / 18:19:11 / cg"
-!
-
-isSymbol
-    "return true, if the receiver is some kind of symbol.
-     Since I am a symbol, return always true"
-
-    ^ true
-!
-
-isUnary
-    "Answer true if the receiver is a unary selector.
-     That is not a check for being a valid selector, but instead relies on
-     the selector being valid."
-
-    ^ self isUnarySelector
-!
-
 species
     "when copying, or concatenating, return instances of this class"
 
@@ -874,6 +823,13 @@
      Must replace foo isMemberOf:String and foo class == String"
 
     ^ false
+!
+
+isSymbol
+    "return true, if the receiver is some kind of symbol.
+     Since I am a symbol, return always true"
+
+    ^ true
 ! !
 
 !Symbol methodsFor:'tracing'!