--- a/Symbol.st	Sat Feb 18 02:22:37 1995 +0100
+++ b/Symbol.st	Sat Feb 18 02:42:00 1995 +0100
@@ -21,7 +21,7 @@
 COPYRIGHT (c) 1988 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic/Symbol.st,v 1.16 1995-02-18 01:22:37 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Symbol.st,v 1.17 1995-02-18 01:42:00 claus Exp $
 '!
 
 !Symbol class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libbasic/Symbol.st,v 1.16 1995-02-18 01:22:37 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Symbol.st,v 1.17 1995-02-18 01:42:00 claus Exp $
 "
 !
 
@@ -218,6 +218,20 @@
      Since I am a symbol - just return myself"
 
     ^ self
+!
+
+asSymbolIfInterned
+    "return the receiver as a symbol if there is one.
+     Since I am a symbol - just return myself"
+
+    ^ self
+!
+
+knownAsSymbol 
+    "return true if the receiver is known as a symbol.
+     Since I am a symbol - just return true"
+
+    ^ true
 ! !
 
 !Symbol methodsFor:'queries'!