--- a/Symbol.st	Fri Feb 13 22:31:32 1998 +0100
+++ b/Symbol.st	Fri Feb 13 22:53:20 1998 +0100
@@ -483,7 +483,10 @@
         (self at:1) isLetter ifTrue:[
             2 to:sz do:[:index |
                 ((c := self at:index) isLetterOrDigit 
-                 or:[c == $:]) ifFalse:[
+                 or:[c == $: 
+                     and:[index == sz 
+                          or:[(self at:(index+1)) isLetterOrDigit]]]
+                ) ifFalse:[
                     ^ '#''' , self , ''''
                 ].
             ].
@@ -492,7 +495,16 @@
     ].
     ^ '#''' , self , ''''
 
-    "Modified: / 13.2.1998 / 21:38:15 / stefan"
+    "
+      #abc
+      #abc:
+      #abc:def:
+      #'abc::def'
+      #'abc &^*'
+      #'abcdef::'
+    "
+
+    "Modified: / 13.2.1998 / 22:06:15 / stefan"
 ! !
 
 !Symbol methodsFor:'queries'!
@@ -591,5 +603,5 @@
 !Symbol class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Symbol.st,v 1.49 1998-02-13 21:31:32 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Symbol.st,v 1.50 1998-02-13 21:53:20 stefan Exp $'
 ! !