--- a/Symbol.st	Wed Nov 23 17:31:01 2016 +0100
+++ b/Symbol.st	Wed Nov 23 17:33:25 2016 +0100
@@ -149,6 +149,8 @@
 ! !
 
 
+
+
 !Symbol class methodsFor:'queries'!
 
 findInterned:aString
@@ -242,6 +244,7 @@
     "
 ! !
 
+
 !Symbol methodsFor:'accessing'!
 
 basicAt:index put:something
@@ -559,6 +562,10 @@
      Since I am a symbol - just return myself"
 
     ^ self
+!
+
+asSymbolIfInternedOrSelf
+    ^ self
 ! !
 
 !Symbol methodsFor:'copying'!
@@ -900,3 +907,4 @@
 version_SVN
     ^ '$ Id: Symbol.st 10648 2011-06-23 15:55:10Z vranyj1  $'
 ! !
+