diff -r 2b872c161747 -r f9a578316eef src/HOL/MicroJava/BV/BVExample.thy
--- a/src/HOL/MicroJava/BV/BVExample.thy	Tue Oct 10 09:17:20 2006 +0200
+++ b/src/HOL/MicroJava/BV/BVExample.thy	Tue Oct 10 09:17:21 2006 +0200
@@ -449,7 +449,7 @@
   "some_elem" ("hd")
 
 code_const some_elem
-  (SML "{*hd*}")
+  (SML target_atom "hd")
 
 lemma JVM_sup_unfold [code]:
  "JVMType.sup S m n = lift2 (Opt.sup