Index: guile-core/libguile/print.c
===================================================================
RCS file: /cvsroot/guile/guile/guile-core/libguile/print.c,v
retrieving revision 1.157
diff -u -r1.157 print.c
--- guile-core/libguile/print.c	30 Nov 2003 00:57:14 -0000	1.157
+++ guile-core/libguile/print.c	2 Dec 2003 00:39:33 -0000
@@ -324,7 +324,8 @@
    * name we've looked at so far. */
   int all_digits = 1;
 
-  if (len == 0 || str[0] == '\'' || str[0] == ':' || str[len-1] == ':')
+  if (len == 0 || str[0] == '\'' || str[0] == '`' || str[0] == ',' ||
+      str[0] == ':' || str[len-1] == ':' || (str[0] == '.' && len == 1))
     {
       scm_lfwrite ("#{", 2, port);
       weird = 1;