--- a/Symbol.st	Mon Jan 17 11:29:05 2000 +0100
+++ b/Symbol.st	Mon Jan 17 11:35:36 2000 +0100
@@ -131,7 +131,7 @@
     ^ String new:size
 ! !
 
-!Symbol class methodsFor:'Compatibility - ST-80'!
+!Symbol class methodsFor:'Compatibility - ST80'!
 
 tableSize
     "return the size of the systems symbol table"
@@ -529,18 +529,18 @@
      c|
 
     (sz := self size) > 0 ifTrue:[  "/ sigh
-	(self at:1) isLetter ifTrue:[
-	    2 to:sz do:[:index |
-		((c := self at:index) isLetterOrDigit 
-		 or:[c == $: 
-		     and:[index == sz 
-			  or:[(self at:(index+1)) isLetterOrDigit]]]
-		) ifFalse:[
-		    ^ '#''' , self , ''''
-		].
-	    ].
-	    ^ '#' , self
-	]
+        (self at:1) isLetter ifTrue:[
+            2 to:sz do:[:index |
+                ((c := self at:index) isLetterOrDigit 
+                 or:[c == $: 
+                     and:[index == sz 
+                          or:[(self at:(index+1)) isLetterOrDigit]]]
+                ) ifFalse:[
+                    ^ '#' , super storeString 
+                ].
+            ].
+            ^ '#' , self
+        ]
     ].
     ^ '#''' , self , ''''
 
@@ -552,6 +552,9 @@
       #'abc::def'  storeString
       #'abc &^*'   storeString
       #'abcdef::'  storeString
+      #'hello''world'  storeString 
+      #'' storeString     
+      #'_hello' storeString     
     "
 
     "Modified: / 13.2.1998 / 22:06:15 / stefan"
@@ -679,5 +682,5 @@
 !Symbol class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Symbol.st,v 1.61 1999-11-13 12:16:32 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Symbol.st,v 1.62 2000-01-17 10:35:36 cg Exp $'
 ! !