--- a/Symbol.st	Fri Apr 16 21:00:27 1999 +0200
+++ b/Symbol.st	Fri Apr 16 21:53:38 1999 +0200
@@ -10,8 +10,6 @@
  hereby transferred.
 "
 
-'From Smalltalk/X, Version:3.4.9 on 15-feb-1999 at 08:43:20'                    !
-
 String variableByteSubclass:#Symbol
 	instanceVariableNames:''
 	classVariableNames:''
@@ -520,7 +518,8 @@
 storeString
     "return a String for storing the receiver"
 
-    |sz c|
+    |sz "{Class: SmallInteger }" 
+     c|
 
     (sz := self size) > 0 ifTrue:[  "/ sigh
         (self at:1) isLetter ifTrue:[
@@ -539,12 +538,13 @@
     ^ '#''' , self , ''''
 
     "
-      #abc
-      #abc:
-      #abc:def:
-      #'abc::def'
-      #'abc &^*'
-      #'abcdef::'
+      #'abc'       storeString
+      #'abc:'      storeString
+      #'abc:def:'  storeString
+      #'abc:def'   storeString            
+      #'abc::def'  storeString
+      #'abc &^*'   storeString
+      #'abcdef::'  storeString
     "
 
     "Modified: / 13.2.1998 / 22:06:15 / stefan"
@@ -646,5 +646,5 @@
 !Symbol class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Symbol.st,v 1.52 1999-02-15 08:48:25 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Symbol.st,v 1.53 1999-04-16 19:53:38 cg Exp $'
 ! !