1.1 --- a/doc-src/more_antiquote.ML	Wed Jun 24 20:52:49 2009 +0200
     1.2 +++ b/doc-src/more_antiquote.ML	Wed Jun 24 21:28:02 2009 +0200
     1.3 @@ -81,7 +81,7 @@
     1.4  fun no_vars ctxt thm =
     1.5    let
     1.6      val ctxt' = Variable.set_body false ctxt;
     1.7 -    val ((_, [thm]), _) = Variable.import_thms true [thm] ctxt';
     1.8 +    val ((_, [thm]), _) = Variable.import true [thm] ctxt';
     1.9    in thm end;
    1.10  
    1.11  fun pretty_code_thm src ctxt raw_const =