# HG changeset patch
# User regensbu
# Date 813949187 -3600
# Node ID ae25649cbbb10a4b12df6222a202f40e8309034e
# Parent  4dd0651d692d35b9194f30a5353f1596ee7c76dc
*** empty log message ***

diff -r 4dd0651d692d -r ae25649cbbb1 src/HOLCF/domain/interface.ML
--- a/src/HOLCF/domain/interface.ML	Tue Oct 17 17:00:10 1995 +0100
+++ b/src/HOLCF/domain/interface.ML	Tue Oct 17 17:59:47 1995 +0100
@@ -68,8 +68,8 @@
 
 
      fun string_of_sort_emb [] = ""
-     |   string_of_sort_emb [x] = x
-	|   string_of_sort_emb (x::xs) = x^","^(string_of_sort_emb xs);
+     |   string_of_sort_emb [x] = "\"" ^x^ "\"" 
+	|   string_of_sort_emb (x::xs) = "\"" ^x^ "\"" ^ ", "^(string_of_sort_emb xs);
 
 	fun string_of_sort l = "["^ (string_of_sort_emb l)^"]";