doc-src/antiquote_setup.ML

--- a/doc-src/antiquote_setup.ML	Fri May 02 16:36:05 2008 +0200
+++ b/doc-src/antiquote_setup.ML	Fri May 02 16:36:29 2008 +0200
@@ -13,8 +13,13 @@
 
 (* misc utils *)
 
-val clean_string =
-  translate_string (fn "_" => "-" | ">" => "$>$" | "#" => "\\#" | c => c);
+val clean_string = translate_string
+  (fn "_" => "-"
+    | ">" => "$>$"
+    | "#" => "\\#"
+    | "{" => "\\{"
+    | "}" => "\\}"
+    | c => c);
 
 val str_of_source = space_implode " " o map Args.string_of o #2 o #1 o Args.dest_src;